MacHack 1994

home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '87 / Source ƒ.sea / Source ƒ / Pascal ƒ / Pascal utils / Utilities.pas next >
MacBinary | 1987-01-07 | 21.4 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	TheDraw Pascal screen Image `(image/theDrawPascalScreenImage)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Jan 6 20:34:00 1987, modified Tue Jan 6 20:34:00 1987, creator 'MPS ', type ASCII, 21363 bytes "Utilities.pas" , at 0x53f3 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 55 74 69 6c 69 74 | 69 65 73 2e 70 61 73 00 |..Utilit|ies.pas.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 ff ff ff ff 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 53 73 00 | 00 01 7e 9c 27 61 08 9c |.....Ss.|..~.'a..|
|00000060| 27 61 08 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |'a......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4a bd 00 00 |........|....J...|
|00000080| 75 6e 69 74 20 55 74 69 | 6c 69 74 69 65 73 3b 0d |unit Uti|lities;.|
|00000090| 0d 09 7b 24 52 2d 7d 0d | 09 7b 20 4e 6f 20 72 61 |..{$R-}.|.{ No ra|
|000000a0| 6e 67 65 20 63 68 65 63 | 6b 69 6e 67 20 20 7d 0d |nge chec|king  }.|
|000000b0| 0d 09 69 6e 74 65 72 66 | 61 63 65 0d 0d 09 09 75 |..interf|ace....u|
|000000c0| 73 65 73 20 52 4f 4d 38 | 35 2c 20 53 41 4e 45 3b |ses ROM8|5, SANE;|
|000000d0| 0d 0d 09 09 63 6f 6e 73 | 74 0d 09 09 09 7b 55 73 |....cons|t....{Us|
|000000e0| 65 66 75 6c 20 4d 61 63 | 43 6f 6e 73 74 61 6e 74 |eful Mac|Constant|
|000000f0| 73 7d 0d 09 09 09 42 74 | 6e 43 6f 6e 74 72 6f 6c |s}....Bt|nControl|
|00000100| 4f 66 66 20 3d 20 30 3b | 0d 09 09 09 42 74 6e 43 |Off = 0;|....BtnC|
|00000110| 6f 6e 74 72 6f 6c 4f 6e | 20 3d 20 31 3b 0d 09 09 |ontrolOn| = 1;...|
|00000120| 09 44 65 66 61 75 6c 74 | 49 74 65 6d 20 3d 20 31 |.Default|Item = 1|
|00000130| 3b 0d 09 09 09 4d 61 72 | 67 69 6e 35 20 3d 20 35 |;....Mar|gin5 = 5|
|00000140| 3b 0d 09 09 09 4d 61 72 | 67 69 6e 31 36 20 3d 20 |;....Mar|gin16 = |
|00000150| 31 36 3b 0d 09 09 09 53 | 63 72 6f 6c 6c 42 61 72 |16;....S|crollBar|
|00000160| 53 69 7a 65 20 3d 20 4d | 61 72 67 69 6e 31 36 3b |Size = M|argin16;|
|00000170| 0d 09 09 09 57 69 6e 64 | 6f 77 54 69 74 6c 65 20 |....Wind|owTitle |
|00000180| 3d 20 31 38 3b 0d 09 09 | 09 4d 65 6e 75 42 61 72 |= 18;...|.MenuBar|
|00000190| 53 69 7a 65 20 3d 20 32 | 30 3b 0d 09 09 09 45 69 |Size = 2|0;....Ei|
|000001a0| 67 68 74 68 53 65 63 6f | 6e 64 20 3d 20 38 3b 0d |ghthSeco|nd = 8;.|
|000001b0| 09 09 09 51 75 61 72 74 | 65 72 53 65 63 6f 6e 64 |...Quart|erSecond|
|000001c0| 20 3d 20 31 35 3b 0d 09 | 09 09 48 61 6c 66 53 65 | = 15;..|..HalfSe|
|000001d0| 63 6f 6e 64 20 3d 20 33 | 30 3b 0d 09 09 09 4f 6e |cond = 3|0;....On|
|000001e0| 65 53 65 63 6f 6e 64 20 | 3d 20 36 30 3b 0d 09 09 |eSecond |= 60;...|
|000001f0| 09 4e 65 77 52 6f 6d 73 | 49 44 20 3d 20 31 31 37 |.NewRoms|ID = 117|
|00000200| 3b 0d 09 09 09 44 65 61 | 64 43 6f 6e 74 72 6f 6c |;....Dea|dControl|
|00000210| 20 3d 20 32 35 35 3b 0d | 09 09 09 54 45 53 65 6c | = 255;.|...TESel|
|00000220| 53 74 61 72 74 20 3d 20 | 30 3b 0d 09 09 09 54 45 |Start = |0;....TE|
|00000230| 53 65 6c 45 6e 64 20 3d | 20 33 32 37 36 37 3b 0d |SelEnd =| 32767;.|
|00000240| 09 09 09 54 6f 6f 4d 75 | 63 68 20 3d 20 31 36 37 |...TooMu|ch = 167|
|00000250| 37 37 32 31 36 3b 0d 0d | 09 09 09 7b 55 73 65 66 |77216;..|...{Usef|
|00000260| 75 6c 20 4d 61 63 20 4b | 65 79 20 63 6f 64 65 20 |ul Mac K|ey code |
|00000270| 63 6f 6e 73 74 61 6e 74 | 73 7d 0d 09 09 09 45 54 |constant|s}....ET|
|00000280| 58 20 3d 20 24 30 33 3b | 20 7b 45 6e 74 65 72 20 |X = $03;| {Enter |
|00000290| 4b 65 79 7d 0d 09 09 09 | 45 6e 74 65 72 4b 65 79 |Key}....|EnterKey|
|000002a0| 20 3d 20 45 54 58 3b 0d | 09 09 09 42 53 20 3d 20 | = ETX;.|...BS = |
|000002b0| 24 30 38 3b 20 7b 42 61 | 63 6b 53 70 61 63 65 20 |$08; {Ba|ckSpace |
|000002c0| 4b 65 79 7d 0d 09 09 09 | 43 52 20 3d 20 24 30 44 |Key}....|CR = $0D|
|000002d0| 3b 20 7b 52 65 74 75 72 | 6e 20 4b 65 79 7d 0d 09 |; {Retur|n Key}..|
|000002e0| 09 09 52 65 74 75 72 6e | 4b 65 79 20 3d 20 43 52 |..Return|Key = CR|
|000002f0| 3b 0d 09 09 09 48 54 20 | 3d 20 24 30 39 3b 20 7b |;....HT |= $09; {|
|00000300| 54 41 42 20 4b 65 79 7d | 0d 09 09 09 54 61 62 4b |TAB Key}|....TabK|
|00000310| 65 79 20 3d 20 48 54 3b | 0d 09 09 09 45 53 43 20 |ey = HT;|....ESC |
|00000320| 3d 20 24 31 42 3b 20 7b | 45 73 63 61 70 65 20 4b |= $1B; {|Escape K|
|00000330| 65 79 7d 0d 09 09 09 46 | 53 20 3d 20 24 31 43 3b |ey}....F|S = $1C;|
|00000340| 20 7b 4c 65 66 74 20 61 | 72 72 6f 77 20 6b 65 79 | {Left a|rrow key|
|00000350| 7d 0d 09 09 09 4c 65 66 | 74 41 72 72 6f 77 20 3d |}....Lef|tArrow =|
|00000360| 20 46 53 3b 0d 09 09 09 | 47 53 20 3d 20 24 31 44 | FS;....|GS = $1D|
|00000370| 3b 20 7b 52 69 67 68 74 | 20 61 72 72 6f 77 20 6b |; {Right| arrow k|
|00000380| 65 79 7d 0d 09 09 09 52 | 69 67 68 74 41 72 72 6f |ey}....R|ightArro|
|00000390| 77 20 3d 20 47 53 3b 0d | 09 09 09 52 53 20 3d 20 |w = GS;.|...RS = |
|000003a0| 24 31 45 3b 20 7b 55 70 | 20 61 72 72 6f 77 20 6b |$1E; {Up| arrow k|
|000003b0| 65 79 7d 0d 09 09 09 55 | 70 41 72 72 6f 77 20 3d |ey}....U|pArrow =|
|000003c0| 20 52 53 3b 0d 09 09 09 | 55 53 20 3d 20 24 31 46 | RS;....|US = $1F|
|000003d0| 3b 20 7b 44 6f 77 6e 20 | 61 72 72 6f 77 20 6b 65 |; {Down |arrow ke|
|000003e0| 79 7d 0d 09 09 09 44 6f | 77 6e 41 72 72 6f 77 20 |y}....Do|wnArrow |
|000003f0| 3d 20 55 53 3b 0d 09 09 | 09 45 6e 64 6f 66 4c 69 |= US;...|.EndofLi|
|00000400| 6e 65 20 3d 20 24 37 46 | 3b 20 7b 45 6e 64 20 6f |ne = $7F|; {End o|
|00000410| 66 20 4c 69 6e 65 20 44 | 65 6c 69 6d 65 74 65 72 |f Line D|elimeter|
|00000420| 7d 0d 09 09 09 4e 6f 42 | 72 6b 53 70 61 63 65 20 |}....NoB|rkSpace |
|00000430| 3d 20 24 43 41 3b 20 7b | 4e 6f 6e 65 20 42 72 65 |= $CA; {|None Bre|
|00000440| 61 6b 69 6e 67 20 73 70 | 61 63 65 20 66 6f 72 20 |aking sp|ace for |
|00000450| 4d 6f 6e 6f 20 53 70 61 | 63 69 6e 67 7d 0d 0d 09 |Mono Spa|cing}...|
|00000460| 09 09 7b 55 74 69 6c 69 | 74 79 20 44 69 61 6c 6f |..{Utili|ty Dialo|
|00000470| 67 20 43 6f 6e 73 74 61 | 6e 74 73 7d 0d 09 09 09 |g Consta|nts}....|
|00000480| 59 65 73 4e 6f 43 61 6e | 63 65 6c 49 44 20 3d 20 |YesNoCan|celID = |
|00000490| 31 39 36 36 3b 0d 09 09 | 09 59 65 73 42 75 74 74 |1966;...|.YesButt|
|000004a0| 6f 6e 20 3d 20 31 3b 0d | 09 09 09 43 61 6e 63 65 |on = 1;.|...Cance|
|000004b0| 6c 42 75 74 74 6f 6e 20 | 3d 20 32 3b 0d 09 09 09 |lButton |= 2;....|
|000004c0| 4e 6f 42 75 74 74 6f 6e | 20 3d 20 33 3b 0d 09 09 |NoButton| = 3;...|
|000004d0| 09 53 74 61 74 69 63 54 | 65 78 74 20 3d 20 34 3b |.StaticT|ext = 4;|
|000004e0| 0d 0d 09 09 74 79 70 65 | 0d 09 09 09 47 65 6e 65 |....type|....Gene|
|000004f0| 72 69 63 52 65 73 70 6f | 6e 73 65 20 3d 20 28 6e |ricRespo|nse = (n|
|00000500| 75 6c 6c 52 65 73 70 6f | 6e 73 65 2c 20 59 65 73 |ullRespo|nse, Yes|
|00000510| 52 65 73 70 6f 6e 73 65 | 2c 20 43 61 6e 63 65 6c |Response|, Cancel|
|00000520| 52 65 73 70 6f 6e 73 65 | 2c 20 4e 6f 52 65 73 70 |Response|, NoResp|
|00000530| 6f 6e 73 65 29 3b 0d 0d | 09 09 76 61 72 0d 09 09 |onse);..|..var...|
|00000540| 09 74 68 65 44 69 61 6c | 6f 67 46 69 6c 74 65 72 |.theDial|ogFilter|
|00000550| 3a 20 50 72 6f 63 50 74 | 72 3b 0d 09 09 09 53 63 |: ProcPt|r;....Sc|
|00000560| 72 65 65 6e 53 69 7a 65 | 3a 20 52 65 63 74 3b 0d |reenSize|: Rect;.|
|00000570| 0d 09 09 70 72 6f 63 65 | 64 75 72 65 20 53 74 61 |...proce|dure Sta|
|00000580| 6e 64 61 72 64 49 6e 69 | 74 3b 0d 09 09 66 75 6e |ndardIni|t;...fun|
|00000590| 63 74 69 6f 6e 20 47 65 | 74 45 76 65 6e 28 74 68 |ction Ge|tEven(th|
|000005a0| 65 4e 75 6d 3a 20 4c 4f | 4e 47 49 4e 54 29 3a 20 |eNum: LO|NGINT): |
|000005b0| 4c 4f 4e 47 49 4e 54 3b | 0d 09 09 66 75 6e 63 74 |LONGINT;|...funct|
|000005c0| 69 6f 6e 20 45 6e 75 6d | 56 61 6c 75 65 28 74 68 |ion Enum|Value(th|
|000005d0| 65 56 61 6c 75 65 3a 20 | 49 4e 54 45 47 45 52 29 |eValue: |INTEGER)|
|000005e0| 3a 20 53 69 67 6e 65 64 | 42 79 74 65 3b 0d 09 09 |: Signed|Byte;...|
|000005f0| 66 75 6e 63 74 69 6f 6e | 20 47 65 74 52 65 63 74 |function| GetRect|
|00000600| 53 69 7a 65 28 74 68 65 | 52 65 63 74 3a 20 52 65 |Size(the|Rect: Re|
|00000610| 63 74 29 3a 20 50 6f 69 | 6e 74 3b 0d 09 09 66 75 |ct): Poi|nt;...fu|
|00000620| 6e 63 74 69 6f 6e 20 4e | 65 77 52 6f 6d 73 3a 20 |nction N|ewRoms: |
|00000630| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 66 75 6e 63 74 |BOOLEAN;|...funct|
|00000640| 69 6f 6e 20 48 46 53 52 | 75 6e 6e 69 6e 67 3a 20 |ion HFSR|unning: |
|00000650| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 66 75 6e 63 74 |BOOLEAN;|...funct|
|00000660| 69 6f 6e 20 4f 70 74 4b | 65 79 44 6f 77 6e 28 74 |ion OptK|eyDown(t|
|00000670| 68 65 4d 6f 64 69 66 69 | 65 72 73 3a 20 49 4e 54 |heModifi|ers: INT|
|00000680| 45 47 45 52 29 3a 20 42 | 4f 4f 4c 45 41 4e 3b 0d |EGER): B|OOLEAN;.|
|00000690| 09 09 66 75 6e 63 74 69 | 6f 6e 20 43 61 70 73 4c |..functi|on CapsL|
|000006a0| 6f 63 6b 44 6f 77 6e 28 | 74 68 65 4d 6f 64 69 66 |ockDown(|theModif|
|000006b0| 69 65 72 73 3a 20 49 4e | 54 45 47 45 52 29 3a 20 |iers: IN|TEGER): |
|000006c0| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 66 75 6e 63 74 |BOOLEAN;|...funct|
|000006d0| 69 6f 6e 20 53 68 69 66 | 74 4b 65 79 44 6f 77 6e |ion Shif|tKeyDown|
|000006e0| 28 74 68 65 4d 6f 64 69 | 66 69 65 72 73 3a 20 49 |(theModi|fiers: I|
|000006f0| 4e 54 45 47 45 52 29 3a | 20 42 4f 4f 4c 45 41 4e |NTEGER):| BOOLEAN|
|00000700| 3b 0d 09 09 66 75 6e 63 | 74 69 6f 6e 20 43 6d 64 |;...func|tion Cmd|
|00000710| 4b 65 79 44 6f 77 6e 28 | 74 68 65 4d 6f 64 69 66 |KeyDown(|theModif|
|00000720| 69 65 72 73 3a 20 49 4e | 54 45 47 45 52 29 3a 20 |iers: IN|TEGER): |
|00000730| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 66 75 6e 63 74 |BOOLEAN;|...funct|
|00000740| 69 6f 6e 20 57 69 6e 64 | 6f 77 41 63 74 69 76 61 |ion Wind|owActiva|
|00000750| 74 65 28 74 68 65 4d 6f | 64 69 66 69 65 72 73 3a |te(theMo|difiers:|
|00000760| 20 49 4e 54 45 47 45 52 | 29 3a 20 42 4f 4f 4c 45 | INTEGER|): BOOLE|
|00000770| 41 4e 3b 0d 09 09 70 72 | 6f 63 65 64 75 72 65 20 |AN;...pr|ocedure |
|00000780| 43 65 6e 74 65 72 49 6e | 52 65 63 74 28 76 61 72 |CenterIn|Rect(var|
|00000790| 20 74 68 65 52 65 63 74 | 3a 20 52 65 63 74 3b 0d | theRect|: Rect;.|
|000007a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 20 74 68 |........|..... th|
|000007b0| 65 43 65 6e 74 65 72 52 | 65 63 74 3a 20 52 65 63 |eCenterR|ect: Rec|
|000007c0| 74 3b 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |t;......|........|
|000007d0| 20 76 4f 66 66 53 65 74 | 2c 20 68 4f 66 66 53 65 | vOffSet|, hOffSe|
|000007e0| 74 3a 20 49 4e 54 45 47 | 45 52 29 3b 0d 09 09 70 |t: INTEG|ER);...p|
|000007f0| 72 6f 63 65 64 75 72 65 | 20 43 65 6e 74 65 72 49 |rocedure| CenterI|
|00000800| 6e 53 63 72 65 65 6e 28 | 76 61 72 20 74 68 65 52 |nScreen(|var theR|
|00000810| 65 63 74 3a 20 52 65 63 | 74 3b 0d 09 09 09 09 09 |ect: Rec|t;......|
|00000820| 09 09 09 09 09 09 09 09 | 09 20 76 4f 66 66 53 65 |........|. vOffSe|
|00000830| 74 2c 20 68 4f 66 66 53 | 65 74 3a 20 49 4e 54 45 |t, hOffS|et: INTE|
|00000840| 47 45 52 29 3b 0d 09 09 | 66 75 6e 63 74 69 6f 6e |GER);...|function|
|00000850| 20 47 65 74 57 69 6e 64 | 6f 77 4b 69 6e 64 28 74 | GetWind|owKind(t|
|00000860| 68 65 57 69 6e 64 6f 77 | 3a 20 57 69 6e 64 6f 77 |heWindow|: Window|
|00000870| 50 74 72 29 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |Ptr): IN|TEGER;..|
|00000880| 09 66 75 6e 63 74 69 6f | 6e 20 46 72 6f 6e 74 53 |.functio|n FrontS|
|00000890| 79 73 57 69 6e 64 6f 77 | 3a 20 42 4f 4f 4c 45 41 |ysWindow|: BOOLEA|
|000008a0| 4e 3b 0d 09 09 66 75 6e | 63 74 69 6f 6e 20 43 65 |N;...fun|ction Ce|
|000008b0| 6e 74 65 72 4e 65 77 57 | 69 6e 64 6f 77 28 74 68 |nterNewW|indow(th|
|000008c0| 65 57 69 6e 64 6f 77 49 | 44 3a 20 49 4e 54 45 47 |eWindowI|D: INTEG|
|000008d0| 45 52 3b 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |ER;.....|........|
|000008e0| 09 09 20 77 53 74 6f 72 | 61 67 65 3a 20 50 74 72 |.. wStor|age: Ptr|
|000008f0| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |;.......|........|
|00000900| 20 62 65 68 69 6e 64 3a | 20 57 69 6e 64 6f 77 50 | behind:| WindowP|
|00000910| 74 72 3b 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |tr;.....|........|
|00000920| 09 09 20 76 4f 66 66 53 | 65 74 2c 20 68 4f 66 66 |.. vOffS|et, hOff|
|00000930| 53 65 74 3a 20 49 4e 54 | 45 47 45 52 29 3a 20 57 |Set: INT|EGER): W|
|00000940| 69 6e 64 6f 77 50 74 72 | 3b 0d 09 09 70 72 6f 63 |indowPtr|;...proc|
|00000950| 65 64 75 72 65 20 54 6f | 67 67 6c 65 42 75 74 74 |edure To|ggleButt|
|00000960| 6f 6e 28 74 68 65 43 6f | 6e 74 72 6f 6c 3a 20 43 |on(theCo|ntrol: C|
|00000970| 6f 6e 74 72 6f 6c 48 61 | 6e 64 6c 65 29 3b 0d 09 |ontrolHa|ndle);..|
|00000980| 09 70 72 6f 63 65 64 75 | 72 65 20 53 65 74 42 75 |.procedu|re SetBu|
|00000990| 74 74 6f 6e 47 72 6f 75 | 70 28 74 68 65 44 69 61 |ttonGrou|p(theDia|
|000009a0| 6c 6f 67 3a 20 44 69 61 | 6c 6f 67 50 74 72 3b 0d |log: Dia|logPtr;.|
|000009b0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 20 74 |........|...... t|
|000009c0| 68 65 46 69 72 73 74 42 | 75 74 74 6f 6e 2c 20 74 |heFirstB|utton, t|
|000009d0| 68 65 4c 61 73 74 42 75 | 74 74 6f 6e 2c 20 74 68 |heLastBu|tton, th|
|000009e0| 65 42 75 74 74 6f 6e 3a | 20 49 4e 54 45 47 45 52 |eButton:| INTEGER|
|000009f0| 29 3b 0d 09 09 66 75 6e | 63 74 69 6f 6e 20 47 65 |);...fun|ction Ge|
|00000a00| 74 53 65 74 42 75 74 74 | 6f 6e 28 74 68 65 44 69 |tSetButt|on(theDi|
|00000a10| 61 6c 6f 67 3a 20 44 69 | 61 6c 6f 67 50 74 72 3b |alog: Di|alogPtr;|
|00000a20| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 74 68 |........|......th|
|00000a30| 65 46 69 72 73 74 42 75 | 74 74 6f 6e 2c 20 74 68 |eFirstBu|tton, th|
|00000a40| 65 4c 61 73 74 42 75 74 | 74 6f 6e 3a 20 49 4e 54 |eLastBut|ton: INT|
|00000a50| 45 47 45 52 29 3a 20 49 | 4e 54 45 47 45 52 3b 0d |EGER): I|NTEGER;.|
|00000a60| 09 09 70 72 6f 63 65 64 | 75 72 65 20 53 65 6c 45 |..proced|ure SelE|
|00000a70| 64 69 74 54 65 78 74 28 | 74 68 65 44 69 61 6c 6f |ditText(|theDialo|
|00000a80| 67 3a 20 44 69 61 6c 6f | 67 50 74 72 3b 0d 09 09 |g: Dialo|gPtr;...|
|00000a90| 09 09 09 09 09 09 09 09 | 09 09 09 74 68 65 49 74 |........|...theIt|
|00000aa0| 65 6d 3a 20 49 4e 54 45 | 47 45 52 29 3b 0d 09 09 |em: INTE|GER);...|
|00000ab0| 70 72 6f 63 65 64 75 72 | 65 20 53 65 74 45 64 69 |procedur|e SetEdi|
|00000ac0| 74 54 65 78 74 28 74 68 | 65 44 69 61 6c 6f 67 3a |tText(th|eDialog:|
|00000ad0| 20 44 69 61 6c 6f 67 50 | 74 72 3b 0d 09 09 09 09 | DialogP|tr;.....|
|00000ae0| 09 09 09 09 09 09 09 09 | 09 74 68 65 49 74 65 6d |........|.theItem|
|00000af0| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 09 09 09 09 |: INTEGE|R;......|
|00000b00| 09 09 09 09 09 09 09 09 | 76 61 72 20 74 68 65 54 |........|var theT|
|00000b10| 65 78 74 3a 20 73 74 72 | 32 35 35 29 3b 0d 09 09 |ext: str|255);...|
|00000b20| 66 75 6e 63 74 69 6f 6e | 20 47 65 74 45 64 69 74 |function| GetEdit|
|00000b30| 54 65 78 74 28 74 68 65 | 44 69 61 6c 6f 67 3a 20 |Text(the|Dialog: |
|00000b40| 44 69 61 6c 6f 67 50 74 | 72 3b 0d 09 09 09 09 09 |DialogPt|r;......|
|00000b50| 09 09 09 09 09 09 09 20 | 74 68 65 49 74 65 6d 3a |....... |theItem:|
|00000b60| 20 49 4e 54 45 47 45 52 | 29 3a 20 73 74 72 32 35 | INTEGER|): str25|
|00000b70| 35 3b 0d 09 09 70 72 6f | 63 65 64 75 72 65 20 53 |5;...pro|cedure S|
|00000b80| 65 74 45 64 69 74 52 65 | 61 6c 28 74 68 65 44 69 |etEditRe|al(theDi|
|00000b90| 61 6c 6f 67 3a 20 44 69 | 61 6c 6f 67 50 74 72 3b |alog: Di|alogPtr;|
|00000ba0| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 74 68 |........|......th|
|00000bb0| 65 49 74 65 6d 3a 20 49 | 4e 54 45 47 45 52 3b 0d |eItem: I|NTEGER;.|
|00000bc0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 74 68 65 |........|.....the|
|00000bd0| 4e 75 6d 62 65 72 3a 20 | 45 78 74 65 6e 64 65 64 |Number: |Extended|
|00000be0| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 09 74 |;.......|.......t|
|00000bf0| 68 65 46 6f 72 6d 3a 20 | 44 65 63 46 6f 72 6d 29 |heForm: |DecForm)|
|00000c00| 3b 0d 09 09 66 75 6e 63 | 74 69 6f 6e 20 47 65 74 |;...func|tion Get|
|00000c10| 45 64 69 74 52 65 61 6c | 28 74 68 65 44 69 61 6c |EditReal|(theDial|
|00000c20| 6f 67 3a 20 44 69 61 6c | 6f 67 50 74 72 3b 0d 09 |og: Dial|ogPtr;..|
|00000c30| 09 09 09 09 09 09 09 09 | 09 09 09 20 74 68 65 49 |........|... theI|
|00000c40| 74 65 6d 3a 20 49 4e 54 | 45 47 45 52 3b 0d 09 09 |tem: INT|EGER;...|
|00000c50| 09 09 09 09 09 09 09 09 | 09 09 20 76 61 72 20 74 |........|.. var t|
|00000c60| 68 65 4e 75 6d 62 65 72 | 3a 20 45 78 74 65 6e 64 |heNumber|: Extend|
|00000c70| 65 64 29 3a 20 42 4f 4f | 4c 45 41 4e 3b 0d 09 09 |ed): BOO|LEAN;...|
|00000c80| 66 75 6e 63 74 69 6f 6e | 20 44 6f 53 46 47 65 74 |function| DoSFGet|
|00000c90| 28 74 68 65 46 69 6c 65 | 43 6f 75 6e 74 3a 20 49 |(theFile|Count: I|
|00000ca0| 4e 54 45 47 45 52 3b 0d | 09 09 09 09 09 09 09 09 |NTEGER;.|........|
|00000cb0| 09 09 20 74 68 65 54 79 | 70 65 4c 69 73 74 3a 20 |.. theTy|peList: |
|00000cc0| 53 46 54 79 70 65 4c 69 | 73 74 3b 0d 09 09 09 09 |SFTypeLi|st;.....|
|00000cd0| 09 09 09 09 09 09 20 76 | 4f 66 66 53 65 74 2c 20 |...... v|OffSet, |
|00000ce0| 68 4f 66 66 53 65 74 3a | 20 49 4e 54 45 47 45 52 |hOffSet:| INTEGER|
|00000cf0| 29 3a 20 53 46 52 65 70 | 6c 79 3b 0d 09 09 66 75 |): SFRep|ly;...fu|
|00000d00| 6e 63 74 69 6f 6e 20 44 | 6f 53 46 50 75 74 28 76 |nction D|oSFPut(v|
|00000d10| 61 72 20 74 68 65 53 61 | 76 65 50 72 6f 6d 70 74 |ar theSa|vePrompt|
|00000d20| 2c 20 4f 72 69 67 46 69 | 6c 65 4e 61 6d 65 3a 20 |, OrigFi|leName: |
|00000d30| 73 74 72 32 35 35 3b 0d | 09 09 09 09 09 09 09 09 |str255;.|........|
|00000d40| 09 09 20 76 4f 66 66 53 | 65 74 2c 20 68 4f 66 66 |.. vOffS|et, hOff|
|00000d50| 53 65 74 3a 20 49 4e 54 | 45 47 45 52 29 3a 20 53 |Set: INT|EGER): S|
|00000d60| 46 52 65 70 6c 79 3b 0d | 09 09 66 75 6e 63 74 69 |FReply;.|..functi|
|00000d70| 6f 6e 20 43 65 6e 74 65 | 72 4e 65 77 44 69 61 6c |on Cente|rNewDial|
|00000d80| 6f 67 28 74 68 65 44 69 | 61 6c 6f 67 49 44 3a 20 |og(theDi|alogID: |
|00000d90| 49 4e 54 45 47 45 52 3b | 0d 09 09 09 09 09 09 09 |INTEGER;|........|
|00000da0| 09 09 09 09 09 09 09 20 | 64 53 74 6f 72 61 67 65 |....... |dStorage|
|00000db0| 3a 20 50 74 72 3b 0d 09 | 09 09 09 09 09 09 09 09 |: Ptr;..|........|
|00000dc0| 09 09 09 09 09 20 62 65 | 68 69 6e 64 3a 20 57 69 |..... be|hind: Wi|
|00000dd0| 6e 64 6f 77 50 74 72 3b | 0d 09 09 09 09 09 09 09 |ndowPtr;|........|
|00000de0| 09 09 09 09 09 09 09 20 | 76 4f 66 66 53 65 74 2c |....... |vOffSet,|
|00000df0| 20 68 4f 66 66 53 65 74 | 3a 20 49 4e 54 45 47 45 | hOffSet|: INTEGE|
|00000e00| 52 29 3a 20 44 69 61 6c | 6f 67 50 74 72 3b 0d 09 |R): Dial|ogPtr;..|
|00000e10| 09 70 72 6f 63 65 64 75 | 72 65 20 4f 75 74 4c 69 |.procedu|re OutLi|
|00000e20| 6e 65 42 75 74 74 6f 6e | 28 74 68 65 50 6f 72 74 |neButton|(thePort|
|00000e30| 3a 20 47 72 61 66 50 74 | 72 3b 0d 09 09 09 09 09 |: GrafPt|r;......|
|00000e40| 09 09 09 09 09 09 09 09 | 09 74 68 65 52 65 63 74 |........|.theRect|
|00000e50| 3a 20 52 65 63 74 29 3b | 0d 09 09 70 72 6f 63 65 |: Rect);|...proce|
|00000e60| 64 75 72 65 20 44 69 61 | 6c 6f 67 44 65 66 61 75 |dure Dia|logDefau|
|00000e70| 6c 74 28 74 68 65 44 69 | 61 6c 6f 67 3a 20 44 69 |lt(theDi|alog: Di|
|00000e80| 61 6c 6f 67 50 74 72 29 | 3b 0d 09 09 70 72 6f 63 |alogPtr)|;...proc|
|00000e90| 65 64 75 72 65 20 53 65 | 74 75 70 44 69 61 6c 6f |edure Se|tupDialo|
|00000ea0| 67 28 74 68 65 44 69 61 | 6c 6f 67 3a 20 44 69 61 |g(theDia|log: Dia|
|00000eb0| 6c 6f 67 50 74 72 3b 0d | 09 09 09 09 09 09 09 09 |logPtr;.|........|
|00000ec0| 09 09 09 09 09 42 75 74 | 74 6f 6e 4b 65 79 73 2c |.....But|tonKeys,|
|00000ed0| 20 43 68 65 63 6b 42 6f | 78 4b 65 79 73 2c 20 52 | CheckBo|xKeys, R|
|00000ee0| 61 64 69 6f 4b 65 79 73 | 3a 20 42 4f 4f 4c 45 41 |adioKeys|: BOOLEA|
|00000ef0| 4e 29 3b 0d 09 09 70 72 | 6f 63 65 64 75 72 65 20 |N);...pr|ocedure |
|00000f00| 44 69 73 70 6f 73 53 65 | 74 55 70 28 74 68 65 44 |DisposSe|tUp(theD|
|00000f10| 69 61 6c 6f 67 3a 20 44 | 69 61 6c 6f 67 50 74 72 |ialog: D|ialogPtr|
|00000f20| 29 3b 0d 09 09 66 75 6e | 63 74 69 6f 6e 20 47 65 |);...fun|ction Ge|
|00000f30| 74 44 4c 4f 47 52 65 66 | 43 6f 6e 28 74 68 65 44 |tDLOGRef|Con(theD|
|00000f40| 69 61 6c 6f 67 3a 20 44 | 69 61 6c 6f 67 50 74 72 |ialog: D|ialogPtr|
|00000f50| 29 3a 20 4c 4f 4e 47 49 | 4e 54 3b 0d 09 09 66 75 |): LONGI|NT;...fu|
|00000f60| 6e 63 74 69 6f 6e 20 59 | 65 73 4e 6f 43 61 6e 63 |nction Y|esNoCanc|
|00000f70| 65 6c 44 4c 4f 47 28 76 | 61 72 20 70 61 72 6d 30 |elDLOG(v|ar parm0|
|00000f80| 2c 20 70 61 72 6d 31 2c | 20 70 61 72 6d 32 2c 0d |, parm1,| parm2,.|
|00000f90| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 20 70 |........|...... p|
|00000fa0| 61 72 6d 33 3a 20 73 74 | 72 32 35 35 29 3a 20 47 |arm3: st|r255): G|
|00000fb0| 65 6e 65 72 69 63 52 65 | 73 70 6f 6e 73 65 3b 0d |enericRe|sponse;.|
|00000fc0| 09 09 66 75 6e 63 74 69 | 6f 6e 20 59 65 73 4e 6f |..functi|on YesNo|
|00000fd0| 44 4c 4f 47 28 76 61 72 | 20 70 61 72 6d 30 2c 20 |DLOG(var| parm0, |
|00000fe0| 70 61 72 6d 31 2c 20 70 | 61 72 6d 32 2c 20 70 61 |parm1, p|arm2, pa|
|00000ff0| 72 6d 33 3a 20 73 74 72 | 32 35 35 29 3a 20 47 65 |rm3: str|255): Ge|
|00001000| 6e 65 72 69 63 52 65 73 | 70 6f 6e 73 65 3b 0d 09 |nericRes|ponse;..|
|00001010| 09 66 75 6e 63 74 69 6f | 6e 20 44 65 6c 65 74 65 |.functio|n Delete|
|00001020| 46 69 6c 65 3a 20 42 4f | 4f 4c 45 41 4e 3b 0d 0d |File: BO|OLEAN;..|
|00001030| 09 69 6d 70 6c 65 6d 65 | 6e 74 61 74 69 6f 6e 0d |.impleme|ntation.|
|00001040| 0d 09 09 63 6f 6e 73 74 | 0d 09 09 09 42 75 74 74 |...const|....Butt|
|00001050| 6f 6e 49 74 65 6d 20 3d | 20 34 3b 0d 09 09 09 43 |onItem =| 4;....C|
|00001060| 68 65 63 6b 42 6f 78 20 | 3d 20 35 3b 0d 09 09 09 |heckBox |= 5;....|
|00001070| 52 61 64 69 6f 42 75 74 | 74 6f 6e 20 3d 20 36 3b |RadioBut|ton = 6;|
|00001080| 0d 0d 09 09 74 79 70 65 | 0d 09 09 09 73 74 72 31 |....type|....str1|
|00001090| 20 3d 20 53 54 52 49 4e | 47 5b 31 5d 3b 0d 09 09 | = STRIN|G[1];...|
|000010a0| 09 4b 65 79 52 65 70 6c | 61 63 65 52 65 63 20 3d |.KeyRepl|aceRec =|
|000010b0| 20 72 65 63 6f 72 64 0d | 09 09 09 09 4b 65 79 3a | record.|....Key:|
|000010c0| 20 73 74 72 31 3b 0d 09 | 09 09 09 49 74 65 6d 3a | str1;..|...Item:|
|000010d0| 20 49 4e 54 45 47 45 52 | 3b 0d 09 09 09 09 65 6e | INTEGER|;.....en|
|000010e0| 64 3b 20 7b 72 65 63 6f | 72 64 20 4b 65 79 52 65 |d; {reco|rd KeyRe|
|000010f0| 70 6c 61 63 65 7d 0d 09 | 09 09 4b 65 79 52 65 70 |place}..|..KeyRep|
|00001100| 6c 61 63 65 50 74 72 20 | 3d 20 5e 4b 65 79 52 65 |lacePtr |= ^KeyRe|
|00001110| 70 6c 61 63 65 52 65 63 | 3b 0d 09 09 09 4b 65 79 |placeRec|;....Key|
|00001120| 52 65 70 6c 61 63 65 48 | 44 4c 20 3d 20 5e 4b 65 |ReplaceH|DL = ^Ke|
|00001130| 79 52 65 70 6c 61 63 65 | 50 74 72 3b 0d 0d 09 09 |yReplace|Ptr;....|
|00001140| 09 4b 65 79 4c 69 73 74 | 41 72 72 61 79 20 3d 20 |.KeyList|Array = |
|00001150| 61 72 72 61 79 20 5b 31 | 2e 2e 31 5d 20 6f 66 20 |array [1|..1] of |
|00001160| 4b 65 79 52 65 70 6c 61 | 63 65 52 65 63 3b 0d 09 |KeyRepla|ceRec;..|
|00001170| 09 09 4b 65 79 4c 69 73 | 74 50 74 72 20 3d 20 5e |..KeyLis|tPtr = ^|
|00001180| 4b 65 79 4c 69 73 74 41 | 72 72 61 79 3b 0d 09 09 |KeyListA|rray;...|
|00001190| 09 4b 65 79 4c 69 73 74 | 48 44 4c 20 3d 20 5e 4b |.KeyList|HDL = ^K|
|000011a0| 65 79 4c 69 73 74 50 74 | 72 3b 0d 0d 09 09 09 4b |eyListPt|r;.....K|
|000011b0| 65 79 4c 69 73 74 52 65 | 63 20 3d 20 72 65 63 6f |eyListRe|c = reco|
|000011c0| 72 64 0d 09 09 09 09 4c | 69 73 74 48 44 4c 3a 20 |rd.....L|istHDL: |
|000011d0| 4b 65 79 4c 69 73 74 48 | 44 4c 3b 0d 09 09 09 09 |KeyListH|DL;.....|
|000011e0| 4c 69 73 74 43 6f 75 6e | 74 2c 20 4c 61 73 74 49 |ListCoun|t, LastI|
|000011f0| 74 65 6d 3a 20 49 4e 54 | 45 47 45 52 3b 0d 09 09 |tem: INT|EGER;...|
|00001200| 09 09 4f 6c 64 52 65 66 | 43 6f 6e 2c 20 4c 61 73 |..OldRef|Con, Las|
|00001210| 74 54 69 6d 65 3a 20 4c | 4f 4e 47 49 4e 54 3b 0d |tTime: L|ONGINT;.|
|00001220| 09 09 09 09 65 6e 64 3b | 20 7b 72 65 63 6f 72 64 |....end;| {record|
|00001230| 20 4b 65 79 4c 69 73 74 | 52 65 63 7d 0d 09 09 09 | KeyList|Rec}....|
|00001240| 4b 65 79 4c 69 73 74 52 | 65 63 50 74 72 20 3d 20 |KeyListR|ecPtr = |
|00001250| 5e 4b 65 79 4c 69 73 74 | 52 65 63 3b 0d 09 09 09 |^KeyList|Rec;....|
|00001260| 4b 65 79 4c 69 73 74 52 | 65 63 48 44 4c 20 3d 20 |KeyListR|ecHDL = |
|00001270| 5e 4b 65 79 4c 69 73 74 | 52 65 63 50 74 72 3b 0d |^KeyList|RecPtr;.|
|00001280| 0d 09 09 09 44 4c 4f 47 | 48 65 61 64 65 72 52 65 |....DLOG|HeaderRe|
|00001290| 63 20 3d 20 72 65 63 6f | 72 64 0d 09 09 09 09 49 |c = reco|rd.....I|
|000012a0| 74 65 6d 43 6f 75 6e 74 | 3a 20 49 4e 54 45 47 45 |temCount|: INTEGE|
|000012b0| 52 3b 0d 09 09 09 09 65 | 6e 64 3b 20 7b 44 4c 4f |R;.....e|nd; {DLO|
|000012c0| 47 48 65 61 64 65 72 7d | 0d 09 09 09 44 4c 4f 47 |GHeader}|....DLOG|
|000012d0| 48 65 61 64 65 72 50 74 | 72 20 3d 20 5e 44 4c 4f |HeaderPt|r = ^DLO|
|000012e0| 47 48 65 61 64 65 72 52 | 65 63 3b 0d 09 09 09 44 |GHeaderR|ec;....D|
|000012f0| 4c 4f 47 48 65 61 64 65 | 72 48 44 4c 20 3d 20 5e |LOGHeade|rHDL = ^|
|00001300| 44 4c 4f 47 48 65 61 64 | 65 72 50 74 72 3b 0d 0d |DLOGHead|erPtr;..|
|00001310| 09 09 70 72 6f 63 65 64 | 75 72 65 20 52 65 73 75 |..proced|ure Resu|
|00001320| 6d 65 50 72 6f 67 72 61 | 6d 3b 0d 09 09 09 62 65 |meProgra|m;....be|
|00001330| 67 69 6e 0d 09 09 09 09 | 45 78 69 74 54 6f 53 68 |gin.....|ExitToSh|
|00001340| 65 6c 6c 3b 0d 09 09 09 | 65 6e 64 3b 20 7b 52 65 |ell;....|end; {Re|
|00001350| 73 75 6d 65 50 72 6f 67 | 72 61 6d 7d 0d 0d 09 09 |sumeProg|ram}....|
|00001360| 70 72 6f 63 65 64 75 72 | 65 20 53 74 61 6e 64 61 |procedur|e Standa|
|00001370| 72 64 49 6e 69 74 3b 0d | 09 09 09 76 61 72 0d 09 |rdInit;.|...var..|
|00001380| 09 09 09 53 63 72 65 65 | 6e 5f 57 69 64 74 68 2c |...Scree|n_Width,|
|00001390| 20 53 63 72 65 65 6e 5f | 48 65 69 67 68 74 3a 20 | Screen_|Height: |
|000013a0| 49 4e 54 45 47 45 52 3b | 0d 09 09 09 62 65 67 69 |INTEGER;|....begi|
|000013b0| 6e 0d 09 09 09 09 49 6e | 69 74 47 72 61 66 28 40 |n.....In|itGraf(@|
|000013c0| 74 68 65 50 6f 72 74 29 | 3b 0d 09 09 09 09 49 6e |thePort)|;.....In|
|000013d0| 69 74 46 6f 6e 74 73 3b | 0d 09 09 09 09 49 6e 69 |itFonts;|.....Ini|
|000013e0| 74 57 69 6e 64 6f 77 73 | 3b 0d 09 09 09 09 49 6e |tWindows|;.....In|
|000013f0| 69 74 4d 65 6e 75 73 3b | 0d 09 09 09 09 54 45 49 |itMenus;|.....TEI|
|00001400| 6e 69 74 3b 0d 09 09 09 | 09 49 6e 69 74 44 69 61 |nit;....|.InitDia|
|00001410| 6c 6f 67 73 28 40 52 65 | 73 75 6d 65 50 72 6f 67 |logs(@Re|sumeProg|
|00001420| 72 61 6d 29 3b 0d 09 09 | 09 09 49 6e 69 74 43 75 |ram);...|..InitCu|
|00001430| 72 73 6f 72 3b 0d 09 09 | 09 09 49 6e 69 74 41 6c |rsor;...|..InitAl|
|00001440| 6c 50 61 63 6b 73 3b 0d | 0d 09 09 09 09 53 63 72 |lPacks;.|.....Scr|
|00001450| 65 65 6e 5f 57 69 64 74 | 68 3a 3d 73 63 72 65 65 |een_Widt|h:=scree|
|00001460| 6e 62 69 74 73 2e 62 6f | 75 6e 64 73 2e 72 69 67 |nbits.bo|unds.rig|
|00001470| 68 74 3b 0d 09 09 09 09 | 53 63 72 65 65 6e 5f 48 |ht;.....|Screen_H|
|00001480| 65 69 67 68 74 3a 3d 73 | 63 72 65 65 6e 62 69 74 |eight:=s|creenbit|
|00001490| 73 2e 62 6f 75 6e 64 73 | 2e 62 6f 74 74 6f 6d 3b |s.bounds|.bottom;|
|000014a0| 0d 09 09 09 09 53 65 74 | 52 65 63 74 28 53 63 72 |.....Set|Rect(Scr|
|000014b0| 65 65 6e 53 69 7a 65 2c | 20 30 2c 20 4d 65 6e 75 |eenSize,| 0, Menu|
|000014c0| 42 61 72 53 69 7a 65 2c | 20 53 63 72 65 65 6e 5f |BarSize,| Screen_|
|000014d0| 57 69 64 74 68 2c 20 53 | 63 72 65 65 6e 5f 48 65 |Width, S|creen_He|
|000014e0| 69 67 68 74 29 3b 0d 09 | 09 09 09 49 6e 73 65 74 |ight);..|...Inset|
|000014f0| 52 65 63 74 28 53 63 72 | 65 65 6e 53 69 7a 65 2c |Rect(Scr|eenSize,|
|00001500| 20 4d 61 72 67 69 6e 35 | 2c 20 4d 61 72 67 69 6e | Margin5|, Margin|
|00001510| 35 29 3b 0d 0d 09 09 09 | 09 74 68 65 44 69 61 6c |5);.....|.theDial|
|00001520| 6f 67 46 69 6c 74 65 72 | 3a 3d 6e 69 6c 3b 0d 09 |ogFilter|:=nil;..|
|00001530| 09 09 65 6e 64 3b 20 7b | 49 6e 69 74 61 6c 69 7a |..end; {|Initaliz|
|00001540| 65 7d 0d 0d 09 09 66 75 | 6e 63 74 69 6f 6e 20 47 |e}....fu|nction G|
|00001550| 65 74 45 76 65 6e 3b 0d | 09 09 09 62 65 67 69 6e |etEven;.|...begin|
|00001560| 0d 09 09 09 09 69 66 20 | 4f 44 44 28 74 68 65 4e |.....if |ODD(theN|
|00001570| 75 6d 29 20 74 68 65 6e | 0d 09 09 09 09 09 74 68 |um) then|......th|
|00001580| 65 4e 75 6d 3a 3d 53 55 | 43 43 28 74 68 65 4e 75 |eNum:=SU|CC(theNu|
|00001590| 6d 29 0d 09 09 09 09 65 | 6c 73 65 0d 09 09 09 09 |m).....e|lse.....|
|000015a0| 09 47 65 74 45 76 65 6e | 3a 3d 74 68 65 4e 75 6d |.GetEven|:=theNum|
|000015b0| 3b 0d 09 09 09 65 6e 64 | 3b 20 7b 47 65 74 5f 45 |;....end|; {Get_E|
|000015c0| 76 65 6e 7d 0d 0d 09 09 | 66 75 6e 63 74 69 6f 6e |ven}....|function|
|000015d0| 20 45 6e 75 6d 56 61 6c | 75 65 3b 0d 09 09 09 62 | EnumVal|ue;....b|
|000015e0| 65 67 69 6e 0d 09 09 09 | 09 45 6e 75 6d 56 61 6c |egin....|.EnumVal|
|000015f0| 75 65 3a 3d 74 68 65 56 | 61 6c 75 65 3b 0d 09 09 |ue:=theV|alue;...|
|00001600| 09 65 6e 64 3b 20 7b 45 | 6e 75 6d 56 61 6c 75 65 |.end; {E|numValue|
|00001610| 7d 0d 0d 09 09 66 75 6e | 63 74 69 6f 6e 20 4e 65 |}....fun|ction Ne|
|00001620| 77 52 6f 6d 73 3b 0d 09 | 09 09 76 61 72 0d 09 09 |wRoms;..|..var...|
|00001630| 09 09 52 6f 6d 56 65 72 | 73 69 6f 6e 2c 20 4d 61 |..RomVer|sion, Ma|
|00001640| 63 68 69 6e 65 3a 20 49 | 4e 54 45 47 45 52 3b 0d |chine: I|NTEGER;.|
|00001650| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 45 6e 76 |...begin|.....Env|
|00001660| 69 72 6f 6e 73 28 52 6f | 6d 56 65 72 73 69 6f 6e |irons(Ro|mVersion|
|00001670| 2c 20 4d 61 63 68 69 6e | 65 29 3b 0d 09 09 09 09 |, Machin|e);.....|
|00001680| 4e 65 77 52 6f 6d 73 3a | 3d 52 6f 6d 56 65 72 73 |NewRoms:|=RomVers|
|00001690| 69 6f 6e 3e 3d 4e 65 77 | 52 6f 6d 73 49 44 3b 0d |ion>=New|RomsID;.|
|000016a0| 09 09 09 65 6e 64 3b 20 | 7b 4e 65 77 52 6f 6d 73 |...end; |{NewRoms|
|000016b0| 7d 0d 0d 09 09 66 75 6e | 63 74 69 6f 6e 20 48 46 |}....fun|ction HF|
|000016c0| 53 52 75 6e 6e 69 6e 67 | 3b 0d 09 09 09 63 6f 6e |SRunning|;....con|
|000016d0| 73 74 0d 09 09 09 09 46 | 53 46 43 42 4c 65 6e 20 |st.....F|SFCBLen |
|000016e0| 3d 20 24 33 46 36 3b 0d | 09 09 09 76 61 72 0d 09 |= $3F6;.|...var..|
|000016f0| 09 09 09 48 46 53 3a 20 | 5e 49 4e 54 45 47 45 52 |...HFS: |^INTEGER|
|00001700| 3b 0d 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 48 |;....beg|in.....H|
|00001710| 46 53 3a 3d 50 4f 49 4e | 54 45 52 28 46 53 46 43 |FS:=POIN|TER(FSFC|
|00001720| 42 4c 65 6e 29 3b 0d 09 | 09 09 09 48 46 53 52 75 |BLen);..|...HFSRu|
|00001730| 6e 6e 69 6e 67 3a 3d 28 | 48 46 53 5e 3e 30 29 3b |nning:=(|HFS^>0);|
|00001740| 0d 09 09 09 65 6e 64 3b | 20 7b 48 46 53 52 75 6e |....end;| {HFSRun|
|00001750| 6e 69 6e 67 7d 0d 0d 09 | 09 66 75 6e 63 74 69 6f |ning}...|.functio|
|00001760| 6e 20 4f 70 74 4b 65 79 | 44 6f 77 6e 3b 0d 09 09 |n OptKey|Down;...|
|00001770| 09 62 65 67 69 6e 0d 09 | 09 09 09 4f 70 74 4b 65 |.begin..|...OptKe|
|00001780| 79 44 6f 77 6e 3a 3d 42 | 69 74 41 6e 64 28 74 68 |yDown:=B|itAnd(th|
|00001790| 65 4d 6f 64 69 66 69 65 | 72 73 2c 20 6f 70 74 69 |eModifie|rs, opti|
|000017a0| 6f 6e 4b 65 79 29 3e 30 | 3b 0d 09 09 09 65 6e 64 |onKey)>0|;....end|
|000017b0| 3b 20 7b 4f 70 74 4b 65 | 79 44 6f 77 6e 7d 0d 0d |; {OptKe|yDown}..|
|000017c0| 09 09 66 75 6e 63 74 69 | 6f 6e 20 43 61 70 73 4c |..functi|on CapsL|
|000017d0| 6f 63 6b 44 6f 77 6e 3b | 0d 09 09 09 62 65 67 69 |ockDown;|....begi|
|000017e0| 6e 0d 09 09 09 09 43 61 | 70 73 4c 6f 63 6b 44 6f |n.....Ca|psLockDo|
|000017f0| 77 6e 3a 3d 42 69 74 41 | 6e 64 28 74 68 65 4d 6f |wn:=BitA|nd(theMo|
|00001800| 64 69 66 69 65 72 73 2c | 20 61 6c 70 68 61 4c 6f |difiers,| alphaLo|
|00001810| 63 6b 29 3e 30 3b 0d 09 | 09 09 65 6e 64 3b 20 7b |ck)>0;..|..end; {|
|00001820| 43 61 70 73 4c 6f 63 6b | 44 6f 77 6e 7d 0d 0d 09 |CapsLock|Down}...|
|00001830| 09 66 75 6e 63 74 69 6f | 6e 20 53 68 69 66 74 4b |.functio|n ShiftK|
|00001840| 65 79 44 6f 77 6e 3b 0d | 09 09 09 62 65 67 69 6e |eyDown;.|...begin|
|00001850| 0d 09 09 09 09 53 68 69 | 66 74 4b 65 79 44 6f 77 |.....Shi|ftKeyDow|
|00001860| 6e 3a 3d 42 69 74 41 6e | 64 28 74 68 65 4d 6f 64 |n:=BitAn|d(theMod|
|00001870| 69 66 69 65 72 73 2c 20 | 73 68 69 66 74 4b 65 79 |ifiers, |shiftKey|
|00001880| 29 3e 30 3b 0d 09 09 09 | 65 6e 64 3b 20 7b 53 68 |)>0;....|end; {Sh|
|00001890| 69 66 74 4b 65 79 44 6f | 77 6e 7d 0d 0d 09 09 66 |iftKeyDo|wn}....f|
|000018a0| 75 6e 63 74 69 6f 6e 20 | 43 6d 64 4b 65 79 44 6f |unction |CmdKeyDo|
|000018b0| 77 6e 3b 0d 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |wn;....b|egin....|
|000018c0| 09 43 6d 64 4b 65 79 44 | 6f 77 6e 3a 3d 42 69 74 |.CmdKeyD|own:=Bit|
|000018d0| 41 6e 64 28 74 68 65 4d | 6f 64 69 66 69 65 72 73 |And(theM|odifiers|
|000018e0| 2c 20 63 6d 64 4b 65 79 | 29 3e 30 3b 0d 09 09 09 |, cmdKey|)>0;....|
|000018f0| 65 6e 64 3b 20 7b 43 6d | 64 4b 65 79 44 6f 77 6e |end; {Cm|dKeyDown|
|00001900| 7d 0d 0d 09 09 66 75 6e | 63 74 69 6f 6e 20 57 69 |}....fun|ction Wi|
|00001910| 6e 64 6f 77 41 63 74 69 | 76 61 74 65 3b 0d 09 09 |ndowActi|vate;...|
|00001920| 09 62 65 67 69 6e 0d 09 | 09 09 09 57 69 6e 64 6f |.begin..|...Windo|
|00001930| 77 41 63 74 69 76 61 74 | 65 3a 3d 42 69 74 41 6e |wActivat|e:=BitAn|
|00001940| 64 28 74 68 65 4d 6f 64 | 69 66 69 65 72 73 2c 20 |d(theMod|ifiers, |
|00001950| 61 63 74 69 76 65 46 6c | 61 67 29 3e 30 3b 0d 09 |activeFl|ag)>0;..|
|00001960| 09 09 65 6e 64 3b 20 7b | 57 69 6e 64 6f 77 41 63 |..end; {|WindowAc|
|00001970| 74 69 76 61 74 65 7d 0d | 0d 09 09 66 75 6e 63 74 |tivate}.|...funct|
|00001980| 69 6f 6e 20 47 65 74 52 | 65 63 74 53 69 7a 65 3b |ion GetR|ectSize;|
|00001990| 0d 09 09 09 76 61 72 0d | 09 09 09 09 54 65 6d 70 |....var.|....Temp|
|000019a0| 50 6f 69 6e 74 3a 20 50 | 6f 69 6e 74 3b 0d 09 09 |Point: P|oint;...|
|000019b0| 09 62 65 67 69 6e 0d 09 | 09 09 09 54 65 6d 70 50 |.begin..|...TempP|
|000019c0| 6f 69 6e 74 2e 76 3a 3d | 74 68 65 52 65 63 74 2e |oint.v:=|theRect.|
|000019d0| 62 6f 74 74 6f 6d 2d 74 | 68 65 52 65 63 74 2e 74 |bottom-t|heRect.t|
|000019e0| 6f 70 3b 0d 09 09 09 09 | 54 65 6d 70 50 6f 69 6e |op;.....|TempPoin|
|000019f0| 74 2e 68 3a 3d 74 68 65 | 52 65 63 74 2e 72 69 67 |t.h:=the|Rect.rig|
|00001a00| 68 74 2d 74 68 65 52 65 | 63 74 2e 6c 65 66 74 3b |ht-theRe|ct.left;|
|00001a10| 0d 09 09 09 09 47 65 74 | 52 65 63 74 53 69 7a 65 |.....Get|RectSize|
|00001a20| 3a 3d 54 65 6d 70 50 6f | 69 6e 74 3b 0d 09 09 09 |:=TempPo|int;....|
|00001a30| 65 6e 64 3b 20 7b 47 65 | 74 52 65 63 74 53 69 7a |end; {Ge|tRectSiz|
|00001a40| 65 7d 0d 0d 09 09 70 72 | 6f 63 65 64 75 72 65 20 |e}....pr|ocedure |
|00001a50| 43 65 6e 74 65 72 49 6e | 52 65 63 74 3b 0d 09 09 |CenterIn|Rect;...|
|00001a60| 09 76 61 72 0d 09 09 09 | 09 52 65 63 74 53 69 7a |.var....|.RectSiz|
|00001a70| 65 3a 20 50 6f 69 6e 74 | 3b 0d 09 09 09 62 65 67 |e: Point|;....beg|
|00001a80| 69 6e 0d 09 09 09 09 7b | 43 61 6c 63 75 6c 61 74 |in.....{|Calculat|
|00001a90| 65 20 74 68 65 20 57 69 | 64 74 68 20 61 6e 64 20 |e the Wi|dth and |
|00001aa0| 48 65 69 67 68 74 20 6f | 66 20 74 68 65 20 44 69 |Height o|f the Di|
|00001ab0| 73 70 6c 61 79 20 52 65 | 63 74 61 6e 67 6c 65 7d |splay Re|ctangle}|
|00001ac0| 0d 09 09 09 09 52 65 63 | 74 53 69 7a 65 3a 3d 47 |.....Rec|tSize:=G|
|00001ad0| 65 74 52 65 63 74 53 69 | 7a 65 28 74 68 65 52 65 |etRectSi|ze(theRe|
|00001ae0| 63 74 29 3b 0d 0d 09 09 | 09 09 7b 43 65 6e 74 65 |ct);....|..{Cente|
|00001af0| 72 20 74 68 65 20 44 69 | 73 70 6c 61 79 20 52 65 |r the Di|splay Re|
|00001b00| 63 74 20 69 6e 20 74 68 | 65 20 43 65 6e 74 65 72 |ct in th|e Center|
|00001b10| 52 65 63 74 7d 0d 09 09 | 09 09 74 68 65 52 65 63 |Rect}...|..theRec|
|00001b20| 74 2e 74 6f 70 3a 3d 52 | 4f 55 4e 44 28 74 68 65 |t.top:=R|OUND(the|
|00001b30| 43 65 6e 74 65 72 52 65 | 63 74 2e 62 6f 74 74 6f |CenterRe|ct.botto|
|00001b40| 6d 2f 32 29 2d 52 4f 55 | 4e 44 28 52 65 63 74 53 |m/2)-ROU|ND(RectS|
|00001b50| 69 7a 65 2e 76 2f 32 29 | 3b 0d 09 09 09 09 74 68 |ize.v/2)|;.....th|
|00001b60| 65 52 65 63 74 2e 6c 65 | 66 74 3a 3d 52 4f 55 4e |eRect.le|ft:=ROUN|
|00001b70| 44 28 74 68 65 43 65 6e | 74 65 72 52 65 63 74 2e |D(theCen|terRect.|
|00001b80| 72 69 67 68 74 2f 32 29 | 2d 52 4f 55 4e 44 28 52 |right/2)|-ROUND(R|
|00001b90| 65 63 74 53 69 7a 65 2e | 68 2f 32 29 3b 0d 0d 09 |ectSize.|h/2);...|
|00001ba0| 09 09 09 7b 4f 66 66 73 | 65 74 20 74 68 65 20 44 |...{Offs|et the D|
|00001bb0| 69 73 70 6c 61 79 20 52 | 65 63 74 20 62 79 20 74 |isplay R|ect by t|
|00001bc0| 68 65 20 52 65 71 75 65 | 73 74 65 64 20 41 6d 6f |he Reque|sted Amo|
|00001bd0| 75 6e 74 7d 0d 09 09 09 | 09 74 68 65 52 65 63 74 |unt}....|.theRect|
|00001be0| 2e 74 6f 70 3a 3d 74 68 | 65 52 65 63 74 2e 74 6f |.top:=th|eRect.to|
|00001bf0| 70 2b 76 4f 66 66 53 65 | 74 3b 0d 09 09 09 09 74 |p+vOffSe|t;.....t|
|00001c00| 68 65 52 65 63 74 2e 6c | 65 66 74 3a 3d 74 68 65 |heRect.l|eft:=the|
|00001c10| 52 65 63 74 2e 6c 65 66 | 74 2b 68 4f 66 66 53 65 |Rect.lef|t+hOffSe|
|00001c20| 74 3b 0d 0d 09 09 09 09 | 7b 4d 6f 76 65 20 74 68 |t;......|{Move th|
|00001c30| 65 20 42 6f 74 74 6f 6d | 20 52 69 67 68 74 20 74 |e Bottom| Right t|
|00001c40| 6f 20 74 68 65 20 6e 65 | 77 20 50 6f 73 69 74 69 |o the ne|w Positi|
|00001c50| 6f 6e 20 66 6f 72 20 43 | 65 6e 74 65 72 69 6e 67 |on for C|entering|
|00001c60| 7d 0d 09 09 09 09 74 68 | 65 52 65 63 74 2e 62 6f |}.....th|eRect.bo|
|00001c70| 74 74 6f 6d 3a 3d 74 68 | 65 52 65 63 74 2e 74 6f |ttom:=th|eRect.to|
|00001c80| 70 2b 52 65 63 74 53 69 | 7a 65 2e 76 3b 0d 09 09 |p+RectSi|ze.v;...|
|00001c90| 09 09 74 68 65 52 65 63 | 74 2e 72 69 67 68 74 3a |..theRec|t.right:|
|00001ca0| 3d 74 68 65 52 65 63 74 | 2e 6c 65 66 74 2b 52 65 |=theRect|.left+Re|
|00001cb0| 63 74 53 69 7a 65 2e 68 | 3b 0d 09 09 09 65 6e 64 |ctSize.h|;....end|
|00001cc0| 3b 20 7b 43 65 6e 74 65 | 72 49 6e 52 65 63 74 7d |; {Cente|rInRect}|
|00001cd0| 0d 0d 09 09 70 72 6f 63 | 65 64 75 72 65 20 43 65 |....proc|edure Ce|
|00001ce0| 6e 74 65 72 49 6e 53 63 | 72 65 65 6e 3b 0d 09 09 |nterInSc|reen;...|
|00001cf0| 09 76 61 72 0d 09 09 09 | 09 54 65 6d 70 52 65 63 |.var....|.TempRec|
|00001d00| 74 3a 20 52 65 63 74 3b | 0d 09 09 09 62 65 67 69 |t: Rect;|....begi|
|00001d10| 6e 0d 09 09 09 09 54 65 | 6d 70 52 65 63 74 3a 3d |n.....Te|mpRect:=|
|00001d20| 73 63 72 65 65 6e 62 69 | 74 73 2e 62 6f 75 6e 64 |screenbi|ts.bound|
|00001d30| 73 3b 0d 09 09 09 09 54 | 65 6d 70 52 65 63 74 2e |s;.....T|empRect.|
|00001d40| 74 6f 70 3a 3d 54 65 6d | 70 52 65 63 74 2e 74 6f |top:=Tem|pRect.to|
|00001d50| 70 2b 53 55 43 43 28 4d | 65 6e 75 42 61 72 53 69 |p+SUCC(M|enuBarSi|
|00001d60| 7a 65 29 3b 0d 09 09 09 | 09 43 65 6e 74 65 72 49 |ze);....|.CenterI|
|00001d70| 6e 52 65 63 74 28 74 68 | 65 52 65 63 74 2c 20 54 |nRect(th|eRect, T|
|00001d80| 65 6d 70 52 65 63 74 2c | 20 76 4f 66 66 53 65 74 |empRect,| vOffSet|
|00001d90| 2c 20 68 4f 66 66 53 65 | 74 29 3b 0d 09 09 09 65 |, hOffSe|t);....e|
|00001da0| 6e 64 3b 20 7b 43 65 6e | 74 65 72 5f 52 65 63 74 |nd; {Cen|ter_Rect|
|00001db0| 7d 0d 0d 09 09 66 75 6e | 63 74 69 6f 6e 20 47 65 |}....fun|ction Ge|
|00001dc0| 74 57 69 6e 64 6f 77 4b | 69 6e 64 3b 0d 09 09 09 |tWindowK|ind;....|
|00001dd0| 76 61 72 0d 09 09 09 09 | 54 65 6d 70 57 69 6e 64 |var.....|TempWind|
|00001de0| 6f 77 3a 20 57 69 6e 64 | 6f 77 50 65 65 6b 3b 0d |ow: Wind|owPeek;.|
|00001df0| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 54 65 6d |...begin|.....Tem|
|00001e00| 70 57 69 6e 64 6f 77 3a | 3d 57 69 6e 64 6f 77 50 |pWindow:|=WindowP|
|00001e10| 65 65 6b 28 74 68 65 57 | 69 6e 64 6f 77 29 3b 0d |eek(theW|indow);.|
|00001e20| 09 09 09 09 47 65 74 57 | 69 6e 64 6f 77 4b 69 6e |....GetW|indowKin|
|00001e30| 64 3a 3d 54 65 6d 70 57 | 69 6e 64 6f 77 5e 2e 77 |d:=TempW|indow^.w|
|00001e40| 69 6e 64 6f 77 4b 69 6e | 64 3b 0d 09 09 09 65 6e |indowKin|d;....en|
|00001e50| 64 3b 20 7b 47 65 74 5f | 57 69 6e 64 6f 77 4b 69 |d; {Get_|WindowKi|
|00001e60| 6e 64 7d 0d 0d 09 09 66 | 75 6e 63 74 69 6f 6e 20 |nd}....f|unction |
|00001e70| 46 72 6f 6e 74 53 79 73 | 57 69 6e 64 6f 77 3b 0d |FrontSys|Window;.|
|00001e80| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 69 66 20 |...begin|.....if |
|00001e90| 46 72 6f 6e 74 57 69 6e | 64 6f 77 3c 3e 6e 69 6c |FrontWin|dow<>nil|
|00001ea0| 20 74 68 65 6e 0d 09 09 | 09 09 09 46 72 6f 6e 74 | then...|...Front|
|00001eb0| 53 79 73 57 69 6e 64 6f | 77 3a 3d 28 47 65 74 57 |SysWindo|w:=(GetW|
|00001ec0| 69 6e 64 6f 77 4b 69 6e | 64 28 46 72 6f 6e 74 57 |indowKin|d(FrontW|
|00001ed0| 69 6e 64 6f 77 29 3c 30 | 29 0d 09 09 09 09 65 6c |indow)<0|).....el|
|00001ee0| 73 65 0d 09 09 09 09 09 | 46 72 6f 6e 74 53 79 73 |se......|FrontSys|
|00001ef0| 57 69 6e 64 6f 77 3a 3d | 46 41 4c 53 45 3b 0d 09 |Window:=|FALSE;..|
|00001f00| 09 09 65 6e 64 3b 20 7b | 46 72 6f 6e 74 5f 53 79 |..end; {|Front_Sy|
|00001f10| 73 57 69 6e 64 6f 77 7d | 0d 0d 09 09 66 75 6e 63 |sWindow}|....func|
|00001f20| 74 69 6f 6e 20 43 65 6e | 74 65 72 4e 65 77 57 69 |tion Cen|terNewWi|
|00001f30| 6e 64 6f 77 3b 0d 09 09 | 09 76 61 72 0d 09 09 09 |ndow;...|.var....|
|00001f40| 09 57 69 6e 64 6f 77 3a | 20 57 69 6e 64 6f 77 50 |.Window:| WindowP|
|00001f50| 74 72 3b 0d 09 09 09 09 | 57 69 6e 64 6f 77 52 65 |tr;.....|WindowRe|
|00001f60| 63 74 3a 20 52 65 63 74 | 3b 0d 09 09 09 62 65 67 |ct: Rect|;....beg|
|00001f70| 69 6e 0d 09 09 09 09 57 | 69 6e 64 6f 77 3a 3d 47 |in.....W|indow:=G|
|00001f80| 65 74 4e 65 77 57 69 6e | 64 6f 77 28 74 68 65 57 |etNewWin|dow(theW|
|00001f90| 69 6e 64 6f 77 49 44 2c | 20 77 53 74 6f 72 61 67 |indowID,| wStorag|
|00001fa0| 65 2c 20 62 65 68 69 6e | 64 29 3b 0d 09 09 09 09 |e, behin|d);.....|
|00001fb0| 57 69 6e 64 6f 77 52 65 | 63 74 3a 3d 57 69 6e 64 |WindowRe|ct:=Wind|
|00001fc0| 6f 77 5e 2e 70 6f 72 74 | 52 65 63 74 3b 0d 09 09 |ow^.port|Rect;...|
|00001fd0| 09 09 43 65 6e 74 65 72 | 49 6e 53 63 72 65 65 6e |..Center|InScreen|
|00001fe0| 28 57 69 6e 64 6f 77 52 | 65 63 74 2c 20 76 4f 66 |(WindowR|ect, vOf|
|00001ff0| 66 53 65 74 2c 20 68 4f | 66 66 53 65 74 29 3b 0d |fSet, hO|ffSet);.|
|00002000| 09 09 09 09 4d 6f 76 65 | 57 69 6e 64 6f 77 28 57 |....Move|Window(W|
|00002010| 69 6e 64 6f 77 2c 20 57 | 69 6e 64 6f 77 52 65 63 |indow, W|indowRec|
|00002020| 74 2e 6c 65 66 74 2c 20 | 57 69 6e 64 6f 77 52 65 |t.left, |WindowRe|
|00002030| 63 74 2e 74 6f 70 2c 20 | 54 52 55 45 29 3b 0d 09 |ct.top, |TRUE);..|
|00002040| 09 09 09 43 65 6e 74 65 | 72 4e 65 77 57 69 6e 64 |...Cente|rNewWind|
|00002050| 6f 77 3a 3d 57 69 6e 64 | 6f 77 3b 0d 09 09 09 65 |ow:=Wind|ow;....e|
|00002060| 6e 64 3b 20 7b 43 65 6e | 74 65 72 4e 65 77 57 69 |nd; {Cen|terNewWi|
|00002070| 6e 64 6f 77 7d 0d 0d 09 | 09 66 75 6e 63 74 69 6f |ndow}...|.functio|
|00002080| 6e 20 44 6f 53 46 47 65 | 74 3b 0d 09 09 09 76 61 |n DoSFGe|t;....va|
|00002090| 72 0d 09 09 09 09 54 65 | 6d 70 44 69 61 6c 6f 67 |r.....Te|mpDialog|
|000020a0| 3a 20 44 69 61 6c 6f 67 | 50 74 72 3b 0d 09 09 09 |: Dialog|Ptr;....|
|000020b0| 09 54 65 6d 70 52 65 70 | 6c 79 3a 20 53 46 52 65 |.TempRep|ly: SFRe|
|000020c0| 70 6c 79 3b 0d 09 09 09 | 09 54 65 6d 70 52 65 63 |ply;....|.TempRec|
|000020d0| 74 3a 20 52 65 63 74 3b | 0d 09 09 09 09 43 6f 72 |t: Rect;|.....Cor|
|000020e0| 6e 65 72 3a 20 50 6f 69 | 6e 74 3b 0d 09 09 09 62 |ner: Poi|nt;....b|
|000020f0| 65 67 69 6e 0d 09 09 09 | 09 54 65 6d 70 44 69 61 |egin....|.TempDia|
|00002100| 6c 6f 67 3a 3d 47 65 74 | 4e 65 77 44 69 61 6c 6f |log:=Get|NewDialo|
|00002110| 67 28 67 65 74 44 6c 67 | 49 44 2c 20 6e 69 6c 2c |g(getDlg|ID, nil,|
|00002120| 20 6e 69 6c 29 3b 0d 09 | 09 09 09 54 65 6d 70 52 | nil);..|...TempR|
|00002130| 65 63 74 3a 3d 54 65 6d | 70 44 69 61 6c 6f 67 5e |ect:=Tem|pDialog^|
|00002140| 2e 70 6f 72 74 52 65 63 | 74 3b 0d 09 09 09 09 43 |.portRec|t;.....C|
|00002150| 65 6e 74 65 72 49 6e 53 | 63 72 65 65 6e 28 54 65 |enterInS|creen(Te|
|00002160| 6d 70 52 65 63 74 2c 20 | 76 4f 66 66 53 65 74 2c |mpRect, |vOffSet,|
|00002170| 20 68 4f 66 66 53 65 74 | 29 3b 0d 09 09 09 09 44 | hOffSet|);.....D|
|00002180| 69 73 70 6f 73 44 69 61 | 6c 6f 67 28 54 65 6d 70 |isposDia|log(Temp|
|00002190| 44 69 61 6c 6f 67 29 3b | 0d 09 09 09 09 43 6f 72 |Dialog);|.....Cor|
|000021a0| 6e 65 72 2e 76 3a 3d 54 | 65 6d 70 52 65 63 74 2e |ner.v:=T|empRect.|
|000021b0| 74 6f 70 3b 0d 09 09 09 | 09 43 6f 72 6e 65 72 2e |top;....|.Corner.|
|000021c0| 68 3a 3d 54 65 6d 70 52 | 65 63 74 2e 6c 65 66 74 |h:=TempR|ect.left|
|000021d0| 3b 0d 0d 09 09 09 09 53 | 46 47 65 74 46 69 6c 65 |;......S|FGetFile|
|000021e0| 28 43 6f 72 6e 65 72 2c | 20 27 27 2c 20 6e 69 6c |(Corner,| '', nil|
|000021f0| 2c 20 74 68 65 46 69 6c | 65 43 6f 75 6e 74 2c 20 |, theFil|eCount, |
|00002200| 74 68 65 54 79 70 65 4c | 69 73 74 2c 20 6e 69 6c |theTypeL|ist, nil|
|00002210| 2c 20 54 65 6d 70 52 65 | 70 6c 79 29 3b 0d 09 09 |, TempRe|ply);...|
|00002220| 09 09 44 6f 53 46 47 65 | 74 3a 3d 54 65 6d 70 52 |..DoSFGe|t:=TempR|
|00002230| 65 70 6c 79 3b 0d 09 09 | 09 65 6e 64 3b 20 7b 44 |eply;...|.end; {D|
|00002240| 6f 5f 53 46 47 65 74 7d | 0d 0d 09 09 66 75 6e 63 |o_SFGet}|....func|
|00002250| 74 69 6f 6e 20 44 6f 53 | 46 50 75 74 3b 0d 09 09 |tion DoS|FPut;...|
|00002260| 09 76 61 72 0d 09 09 09 | 09 54 65 6d 70 44 69 61 |.var....|.TempDia|
|00002270| 6c 6f 67 3a 20 44 69 61 | 6c 6f 67 50 74 72 3b 0d |log: Dia|logPtr;.|
|00002280| 09 09 09 09 54 65 6d 70 | 52 65 70 6c 79 3a 20 53 |....Temp|Reply: S|
|00002290| 46 52 65 70 6c 79 3b 0d | 09 09 09 09 54 65 6d 70 |FReply;.|....Temp|
|000022a0| 52 65 63 74 3a 20 52 65 | 63 74 3b 0d 09 09 09 09 |Rect: Re|ct;.....|
|000022b0| 43 6f 72 6e 65 72 3a 20 | 50 6f 69 6e 74 3b 0d 09 |Corner: |Point;..|
|000022c0| 09 09 62 65 67 69 6e 0d | 09 09 09 09 54 65 6d 70 |..begin.|....Temp|
|000022d0| 44 69 61 6c 6f 67 3a 3d | 47 65 74 4e 65 77 44 69 |Dialog:=|GetNewDi|
|000022e0| 61 6c 6f 67 28 70 75 74 | 44 6c 67 49 44 2c 20 6e |alog(put|DlgID, n|
|000022f0| 69 6c 2c 20 6e 69 6c 29 | 3b 0d 09 09 09 09 54 65 |il, nil)|;.....Te|
|00002300| 6d 70 52 65 63 74 3a 3d | 54 65 6d 70 44 69 61 6c |mpRect:=|TempDial|
|00002310| 6f 67 5e 2e 70 6f 72 74 | 52 65 63 74 3b 0d 09 09 |og^.port|Rect;...|
|00002320| 09 09 43 65 6e 74 65 72 | 49 6e 53 63 72 65 65 6e |..Center|InScreen|
|00002330| 28 54 65 6d 70 52 65 63 | 74 2c 20 76 4f 66 66 53 |(TempRec|t, vOffS|
|00002340| 65 74 2c 20 68 4f 66 66 | 53 65 74 29 3b 0d 09 09 |et, hOff|Set);...|
|00002350| 09 09 44 69 73 70 6f 73 | 44 69 61 6c 6f 67 28 54 |..Dispos|Dialog(T|
|00002360| 65 6d 70 44 69 61 6c 6f | 67 29 3b 0d 09 09 09 09 |empDialo|g);.....|
|00002370| 43 6f 72 6e 65 72 2e 68 | 3a 3d 54 65 6d 70 52 65 |Corner.h|:=TempRe|
|00002380| 63 74 2e 6c 65 66 74 3b | 0d 09 09 09 09 43 6f 72 |ct.left;|.....Cor|
|00002390| 6e 65 72 2e 76 3a 3d 54 | 65 6d 70 52 65 63 74 2e |ner.v:=T|empRect.|
|000023a0| 74 6f 70 3b 0d 0d 09 09 | 09 09 53 46 50 75 74 46 |top;....|..SFPutF|
|000023b0| 69 6c 65 28 43 6f 72 6e | 65 72 2c 20 74 68 65 53 |ile(Corn|er, theS|
|000023c0| 61 76 65 50 72 6f 6d 70 | 74 2c 20 4f 72 69 67 46 |avePromp|t, OrigF|
|000023d0| 69 6c 65 4e 61 6d 65 2c | 20 6e 69 6c 2c 20 54 65 |ileName,| nil, Te|
|000023e0| 6d 70 52 65 70 6c 79 29 | 3b 0d 09 09 09 09 44 6f |mpReply)|;.....Do|
|000023f0| 53 46 50 75 74 3a 3d 54 | 65 6d 70 52 65 70 6c 79 |SFPut:=T|empReply|
|00002400| 3b 0d 09 09 09 65 6e 64 | 3b 20 7b 44 6f 5f 53 46 |;....end|; {Do_SF|
|00002410| 50 75 74 7d 0d 0d 09 09 | 70 72 6f 63 65 64 75 72 |Put}....|procedur|
|00002420| 65 20 54 6f 67 67 6c 65 | 42 75 74 74 6f 6e 3b 0d |e Toggle|Button;.|
|00002430| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 53 65 74 |...begin|.....Set|
|00002440| 43 74 6c 56 61 6c 75 65 | 28 74 68 65 43 6f 6e 74 |CtlValue|(theCont|
|00002450| 72 6f 6c 2c 20 53 55 43 | 43 28 2d 28 47 65 74 43 |rol, SUC|C(-(GetC|
|00002460| 74 6c 56 61 6c 75 65 28 | 74 68 65 43 6f 6e 74 72 |tlValue(|theContr|
|00002470| 6f 6c 29 29 29 29 3b 0d | 09 09 09 65 6e 64 3b 20 |ol))));.|...end; |
|00002480| 7b 54 6f 67 67 6c 65 42 | 75 74 74 6f 6e 7d 0d 0d |{ToggleB|utton}..|
|00002490| 09 09 70 72 6f 63 65 64 | 75 72 65 20 53 65 74 42 |..proced|ure SetB|
|000024a0| 75 74 74 6f 6e 47 72 6f | 75 70 3b 0d 09 09 09 76 |uttonGro|up;....v|
|000024b0| 61 72 0d 09 09 09 09 49 | 74 65 6d 52 65 63 74 3a |ar.....I|temRect:|
|000024c0| 20 52 65 63 74 3b 0d 09 | 09 09 09 49 74 65 6d 48 | Rect;..|...ItemH|
|000024d0| 44 4c 3a 20 48 61 6e 64 | 6c 65 3b 0d 09 09 09 09 |DL: Hand|le;.....|
|000024e0| 43 6f 6e 74 72 6f 6c 48 | 44 4c 3a 20 43 6f 6e 74 |ControlH|DL: Cont|
|000024f0| 72 6f 6c 48 61 6e 64 6c | 65 3b 0d 09 09 09 09 49 |rolHandl|e;.....I|
|00002500| 74 65 6d 54 79 70 65 2c | 20 4c 6f 6f 70 3a 20 49 |temType,| Loop: I|
|00002510| 4e 54 45 47 45 52 3b 0d | 09 09 09 62 65 67 69 6e |NTEGER;.|...begin|
|00002520| 0d 09 09 09 09 66 6f 72 | 20 4c 6f 6f 70 3a 3d 74 |.....for| Loop:=t|
|00002530| 68 65 46 69 72 73 74 42 | 75 74 74 6f 6e 20 74 6f |heFirstB|utton to|
|00002540| 20 74 68 65 4c 61 73 74 | 42 75 74 74 6f 6e 20 64 | theLast|Button d|
|00002550| 6f 0d 09 09 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |o......b|egin....|
|00002560| 09 09 09 47 65 74 44 49 | 74 65 6d 28 74 68 65 44 |...GetDI|tem(theD|
|00002570| 69 61 6c 6f 67 2c 20 4c | 6f 6f 70 2c 20 49 74 65 |ialog, L|oop, Ite|
|00002580| 6d 54 79 70 65 2c 20 49 | 74 65 6d 48 44 4c 2c 20 |mType, I|temHDL, |
|00002590| 49 74 65 6d 52 65 63 74 | 29 3b 0d 09 09 09 09 09 |ItemRect|);......|
|000025a0| 09 43 6f 6e 74 72 6f 6c | 48 44 4c 3a 3d 43 6f 6e |.Control|HDL:=Con|
|000025b0| 74 72 6f 6c 48 61 6e 64 | 6c 65 28 49 74 65 6d 48 |trolHand|le(ItemH|
|000025c0| 44 4c 29 3b 0d 09 09 09 | 09 09 09 69 66 20 4c 6f |DL);....|...if Lo|
|000025d0| 6f 70 3c 3e 74 68 65 42 | 75 74 74 6f 6e 20 74 68 |op<>theB|utton th|
|000025e0| 65 6e 0d 09 09 09 09 09 | 09 09 62 65 67 69 6e 0d |en......|..begin.|
|000025f0| 09 09 09 09 09 09 09 09 | 69 66 20 47 65 74 43 74 |........|if GetCt|
|00002600| 6c 56 61 6c 75 65 28 43 | 6f 6e 74 72 6f 6c 48 44 |lValue(C|ontrolHD|
|00002610| 4c 29 3e 30 20 74 68 65 | 6e 20 54 6f 67 67 6c 65 |L)>0 the|n Toggle|
|00002620| 42 75 74 74 6f 6e 28 43 | 6f 6e 74 72 6f 6c 48 44 |Button(C|ontrolHD|
|00002630| 4c 29 3b 0d 09 09 09 09 | 09 09 09 65 6e 64 20 7b |L);.....|...end {|
|00002640| 69 66 20 4c 6f 6f 70 20 | 3c 3e 20 74 68 65 42 75 |if Loop |<> theBu|
|00002650| 74 74 6f 6e 7d 0d 09 09 | 09 09 09 09 65 6c 73 65 |tton}...|....else|
|00002660| 20 69 66 20 47 65 74 43 | 74 6c 56 61 6c 75 65 28 | if GetC|tlValue(|
|00002670| 43 6f 6e 74 72 6f 6c 48 | 44 4c 29 3d 30 20 74 68 |ControlH|DL)=0 th|
|00002680| 65 6e 20 54 6f 67 67 6c | 65 42 75 74 74 6f 6e 28 |en Toggl|eButton(|
|00002690| 43 6f 6e 74 72 6f 6c 48 | 44 4c 29 3b 0d 09 09 09 |ControlH|DL);....|
|000026a0| 09 09 65 6e 64 3b 20 7b | 66 6f 72 20 4c 6f 6f 70 |..end; {|for Loop|
|000026b0| 20 3a 3d 20 74 68 65 46 | 69 72 73 74 42 75 74 74 | := theF|irstButt|
|000026c0| 6f 6e 20 74 6f 20 74 68 | 65 4c 61 73 74 42 75 74 |on to th|eLastBut|
|000026d0| 74 6f 6e 7d 0d 09 09 09 | 65 6e 64 3b 20 7b 53 65 |ton}....|end; {Se|
|000026e0| 74 42 75 74 74 6f 6e 47 | 72 6f 75 70 7d 0d 0d 09 |tButtonG|roup}...|
|000026f0| 09 66 75 6e 63 74 69 6f | 6e 20 47 65 74 53 65 74 |.functio|n GetSet|
|00002700| 42 75 74 74 6f 6e 3b 0d | 09 09 09 76 61 72 0d 09 |Button;.|...var..|
|00002710| 09 09 09 49 74 65 6d 52 | 65 63 74 3a 20 52 65 63 |...ItemR|ect: Rec|
|00002720| 74 3b 0d 09 09 09 09 49 | 74 65 6d 48 44 4c 3a 20 |t;.....I|temHDL: |
|00002730| 48 61 6e 64 6c 65 3b 0d | 09 09 09 09 43 6f 6e 74 |Handle;.|....Cont|
|00002740| 72 6f 6c 48 44 4c 3a 20 | 43 6f 6e 74 72 6f 6c 48 |rolHDL: |ControlH|
|00002750| 61 6e 64 6c 65 3b 0d 09 | 09 09 09 49 74 65 6d 54 |andle;..|...ItemT|
|00002760| 79 70 65 2c 20 4c 6f 6f | 70 3a 20 49 4e 54 45 47 |ype, Loo|p: INTEG|
|00002770| 45 52 3b 0d 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |ER;....b|egin....|
|00002780| 09 47 65 74 53 65 74 42 | 75 74 74 6f 6e 3a 3d 30 |.GetSetB|utton:=0|
|00002790| 3b 0d 09 09 09 09 66 6f | 72 20 4c 6f 6f 70 3a 3d |;.....fo|r Loop:=|
|000027a0| 74 68 65 46 69 72 73 74 | 42 75 74 74 6f 6e 20 74 |theFirst|Button t|
|000027b0| 6f 20 74 68 65 4c 61 73 | 74 42 75 74 74 6f 6e 20 |o theLas|tButton |
|000027c0| 64 6f 0d 09 09 09 09 09 | 62 65 67 69 6e 0d 09 09 |do......|begin...|
|000027d0| 09 09 09 09 47 65 74 44 | 49 74 65 6d 28 74 68 65 |....GetD|Item(the|
|000027e0| 44 69 61 6c 6f 67 2c 20 | 4c 6f 6f 70 2c 20 49 74 |Dialog, |Loop, It|
|000027f0| 65 6d 54 79 70 65 2c 20 | 49 74 65 6d 48 44 4c 2c |emType, |ItemHDL,|
|00002800| 20 49 74 65 6d 52 65 63 | 74 29 3b 0d 09 09 09 09 | ItemRec|t);.....|
|00002810| 09 09 43 6f 6e 74 72 6f | 6c 48 44 4c 3a 3d 43 6f |..Contro|lHDL:=Co|
|00002820| 6e 74 72 6f 6c 48 61 6e | 64 6c 65 28 49 74 65 6d |ntrolHan|dle(Item|
|00002830| 48 44 4c 29 3b 0d 09 09 | 09 09 09 09 69 66 20 47 |HDL);...|....if G|
|00002840| 65 74 43 74 6c 56 61 6c | 75 65 28 43 6f 6e 74 72 |etCtlVal|ue(Contr|
|00002850| 6f 6c 48 44 4c 29 3e 30 | 20 74 68 65 6e 20 47 65 |olHDL)>0| then Ge|
|00002860| 74 53 65 74 42 75 74 74 | 6f 6e 3a 3d 4c 6f 6f 70 |tSetButt|on:=Loop|
|00002870| 3b 0d 09 09 09 09 09 65 | 6e 64 3b 20 7b 66 6f 72 |;......e|nd; {for|
|00002880| 20 4c 6f 6f 70 20 3a 3d | 20 74 68 65 46 69 72 73 | Loop :=| theFirs|
|00002890| 74 42 75 74 74 6f 6e 20 | 74 6f 20 74 68 65 4c 61 |tButton |to theLa|
|000028a0| 73 74 42 75 74 74 6f 6e | 7d 0d 09 09 09 65 6e 64 |stButton|}....end|
|000028b0| 3b 20 7b 47 65 74 53 65 | 74 42 75 74 74 6f 6e 7d |; {GetSe|tButton}|
|000028c0| 0d 0d 09 09 70 72 6f 63 | 65 64 75 72 65 20 53 65 |....proc|edure Se|
|000028d0| 6c 45 64 69 74 54 65 78 | 74 3b 0d 09 09 09 76 61 |lEditTex|t;....va|
|000028e0| 72 0d 09 09 09 09 49 74 | 65 6d 52 65 63 74 3a 20 |r.....It|emRect: |
|000028f0| 52 65 63 74 3b 0d 09 09 | 09 09 49 74 65 6d 48 44 |Rect;...|..ItemHD|
|00002900| 4c 3a 20 48 61 6e 64 6c | 65 3b 0d 09 09 09 09 49 |L: Handl|e;.....I|
|00002910| 74 65 6d 54 79 70 65 3a | 20 49 4e 54 45 47 45 52 |temType:| INTEGER|
|00002920| 3b 0d 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 47 |;....beg|in.....G|
|00002930| 65 74 44 49 74 65 6d 28 | 74 68 65 44 69 61 6c 6f |etDItem(|theDialo|
|00002940| 67 2c 20 74 68 65 49 74 | 65 6d 2c 20 49 74 65 6d |g, theIt|em, Item|
|00002950| 54 79 70 65 2c 20 49 74 | 65 6d 48 44 4c 2c 20 49 |Type, It|emHDL, I|
|00002960| 74 65 6d 52 65 63 74 29 | 3b 0d 09 09 09 09 53 65 |temRect)|;.....Se|
|00002970| 6c 49 54 65 78 74 28 74 | 68 65 44 69 61 6c 6f 67 |lIText(t|heDialog|
|00002980| 2c 20 74 68 65 49 74 65 | 6d 2c 20 54 45 53 65 6c |, theIte|m, TESel|
|00002990| 53 74 61 72 74 2c 20 54 | 45 53 65 6c 45 6e 64 29 |Start, T|ESelEnd)|
|000029a0| 0d 09 09 09 65 6e 64 3b | 20 7b 53 65 74 45 64 69 |....end;| {SetEdi|
|000029b0| 74 54 65 78 74 7d 0d 0d | 09 09 70 72 6f 63 65 64 |tText}..|..proced|
|000029c0| 75 72 65 20 53 65 74 45 | 64 69 74 54 65 78 74 3b |ure SetE|ditText;|
|000029d0| 0d 09 09 09 76 61 72 0d | 09 09 09 09 49 74 65 6d |....var.|....Item|
|000029e0| 52 65 63 74 3a 20 52 65 | 63 74 3b 0d 09 09 09 09 |Rect: Re|ct;.....|
|000029f0| 49 74 65 6d 48 44 4c 3a | 20 48 61 6e 64 6c 65 3b |ItemHDL:| Handle;|
|00002a00| 0d 09 09 09 09 49 74 65 | 6d 54 79 70 65 3a 20 49 |.....Ite|mType: I|
|00002a10| 4e 54 45 47 45 52 3b 0d | 09 09 09 62 65 67 69 6e |NTEGER;.|...begin|
|00002a20| 0d 09 09 09 09 47 65 74 | 44 49 74 65 6d 28 74 68 |.....Get|DItem(th|
|00002a30| 65 44 69 61 6c 6f 67 2c | 20 74 68 65 49 74 65 6d |eDialog,| theItem|
|00002a40| 2c 20 49 74 65 6d 54 79 | 70 65 2c 20 49 74 65 6d |, ItemTy|pe, Item|
|00002a50| 48 44 4c 2c 20 49 74 65 | 6d 52 65 63 74 29 3b 0d |HDL, Ite|mRect);.|
|00002a60| 09 09 09 09 53 65 74 49 | 54 65 78 74 28 49 74 65 |....SetI|Text(Ite|
|00002a70| 6d 48 44 4c 2c 20 74 68 | 65 54 65 78 74 29 3b 0d |mHDL, th|eText);.|
|00002a80| 09 09 09 65 6e 64 3b 20 | 7b 53 65 74 45 64 69 74 |...end; |{SetEdit|
|00002a90| 54 65 78 74 7d 0d 0d 09 | 09 66 75 6e 63 74 69 6f |Text}...|.functio|
|00002aa0| 6e 20 47 65 74 45 64 69 | 74 54 65 78 74 3b 0d 09 |n GetEdi|tText;..|
|00002ab0| 09 09 76 61 72 0d 09 09 | 09 09 49 74 65 6d 53 74 |..var...|..ItemSt|
|00002ac0| 72 3a 20 73 74 72 32 35 | 35 3b 0d 09 09 09 09 49 |r: str25|5;.....I|
|00002ad0| 74 65 6d 52 65 63 74 3a | 20 52 65 63 74 3b 0d 09 |temRect:| Rect;..|
|00002ae0| 09 09 09 49 74 65 6d 48 | 44 4c 3a 20 48 61 6e 64 |...ItemH|DL: Hand|
|00002af0| 6c 65 3b 0d 09 09 09 09 | 49 74 65 6d 54 79 70 65 |le;.....|ItemType|
|00002b00| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 09 09 62 65 |: INTEGE|R;....be|
|00002b10| 67 69 6e 0d 09 09 09 09 | 47 65 74 44 49 74 65 6d |gin.....|GetDItem|
|00002b20| 28 74 68 65 44 69 61 6c | 6f 67 2c 20 74 68 65 49 |(theDial|og, theI|
|00002b30| 74 65 6d 2c 20 49 74 65 | 6d 54 79 70 65 2c 20 49 |tem, Ite|mType, I|
|00002b40| 74 65 6d 48 44 4c 2c 20 | 49 74 65 6d 52 65 63 74 |temHDL, |ItemRect|
|00002b50| 29 3b 0d 09 09 09 09 47 | 65 74 49 74 65 78 74 28 |);.....G|etItext(|
|00002b60| 49 74 65 6d 48 44 4c 2c | 20 49 74 65 6d 53 74 72 |ItemHDL,| ItemStr|
|00002b70| 29 3b 0d 09 09 09 09 47 | 65 74 45 64 69 74 54 65 |);.....G|etEditTe|
|00002b80| 78 74 3a 3d 49 74 65 6d | 53 74 72 3b 0d 09 09 09 |xt:=Item|Str;....|
|00002b90| 65 6e 64 3b 20 7b 47 65 | 74 45 64 69 74 54 65 78 |end; {Ge|tEditTex|
|00002ba0| 74 7d 0d 0d 09 09 70 72 | 6f 63 65 64 75 72 65 20 |t}....pr|ocedure |
|00002bb0| 53 65 74 45 64 69 74 52 | 65 61 6c 3b 0d 09 09 09 |SetEditR|eal;....|
|00002bc0| 76 61 72 0d 09 09 09 09 | 4e 75 6d 62 65 72 53 74 |var.....|NumberSt|
|00002bd0| 72 3a 20 44 65 63 53 74 | 72 3b 0d 09 09 09 62 65 |r: DecSt|r;....be|
|00002be0| 67 69 6e 0d 09 09 09 09 | 4e 75 6d 32 53 74 72 28 |gin.....|Num2Str(|
|00002bf0| 74 68 65 46 6f 72 6d 2c | 20 74 68 65 4e 75 6d 62 |theForm,| theNumb|
|00002c00| 65 72 2c 20 4e 75 6d 62 | 65 72 53 74 72 29 3b 0d |er, Numb|erStr);.|
|00002c10| 09 09 09 09 53 65 74 45 | 64 69 74 54 65 78 74 28 |....SetE|ditText(|
|00002c20| 74 68 65 44 69 61 6c 6f | 67 2c 20 74 68 65 49 74 |theDialo|g, theIt|
|00002c30| 65 6d 2c 20 4e 75 6d 62 | 65 72 53 74 72 29 3b 0d |em, Numb|erStr);.|
|00002c40| 09 09 09 65 6e 64 3b 20 | 7b 53 65 74 45 64 69 74 |...end; |{SetEdit|
|00002c50| 52 65 61 6c 7d 0d 0d 09 | 09 66 75 6e 63 74 69 6f |Real}...|.functio|
|00002c60| 6e 20 47 65 74 45 64 69 | 74 52 65 61 6c 3b 0d 09 |n GetEdi|tReal;..|
|00002c70| 09 09 76 61 72 0d 09 09 | 09 09 4e 75 6d 62 65 72 |..var...|..Number|
|00002c80| 53 74 72 3a 20 73 74 72 | 32 35 35 3b 0d 09 09 09 |Str: str|255;....|
|00002c90| 09 54 65 6d 70 52 65 61 | 6c 3a 20 45 78 74 65 6e |.TempRea|l: Exten|
|00002ca0| 64 65 64 3b 0d 09 09 09 | 09 4c 65 67 61 6c 44 69 |ded;....|.LegalDi|
|00002cb0| 67 69 74 73 3a 20 73 65 | 74 20 6f 66 20 43 48 41 |gits: se|t of CHA|
|00002cc0| 52 3b 0d 09 09 09 09 4c | 6f 6f 70 3a 20 49 4e 54 |R;.....L|oop: INT|
|00002cd0| 45 47 45 52 3b 0d 09 09 | 09 09 47 6f 6f 64 4e 75 |EGER;...|..GoodNu|
|00002ce0| 6d 62 65 72 3a 20 42 4f | 4f 4c 45 41 4e 3b 0d 09 |mber: BO|OLEAN;..|
|00002cf0| 09 09 62 65 67 69 6e 0d | 09 09 09 09 4c 65 67 61 |..begin.|....Lega|
|00002d00| 6c 44 69 67 69 74 73 3a | 3d 28 5b 27 30 27 2e 2e |lDigits:|=(['0'..|
|00002d10| 27 39 27 2c 20 27 2e 27 | 2c 20 27 2d 27 5d 29 3b |'9', '.'|, '-']);|
|00002d20| 0d 09 09 09 09 4e 75 6d | 62 65 72 53 74 72 3a 3d |.....Num|berStr:=|
|00002d30| 47 65 74 45 64 69 74 54 | 65 78 74 28 74 68 65 44 |GetEditT|ext(theD|
|00002d40| 69 61 6c 6f 67 2c 20 74 | 68 65 49 74 65 6d 29 3b |ialog, t|heItem);|
|00002d50| 0d 0d 09 09 09 09 54 65 | 6d 70 52 65 61 6c 3a 3d |......Te|mpReal:=|
|00002d60| 53 74 72 32 4e 75 6d 28 | 4e 75 6d 62 65 72 53 74 |Str2Num(|NumberSt|
|00002d70| 72 29 3b 0d 09 09 09 09 | 47 6f 6f 64 4e 75 6d 62 |r);.....|GoodNumb|
|00002d80| 65 72 3a 3d 54 52 55 45 | 3b 0d 09 09 09 09 66 6f |er:=TRUE|;.....fo|
|00002d90| 72 20 4c 6f 6f 70 3a 3d | 31 20 74 6f 20 4c 65 6e |r Loop:=|1 to Len|
|00002da0| 67 74 68 28 4e 75 6d 62 | 65 72 53 74 72 29 20 64 |gth(Numb|erStr) d|
|00002db0| 6f 0d 09 09 09 09 09 47 | 6f 6f 64 4e 75 6d 62 65 |o......G|oodNumbe|
|00002dc0| 72 3a 3d 47 6f 6f 64 4e | 75 6d 62 65 72 20 61 6e |r:=GoodN|umber an|
|00002dd0| 64 20 28 4e 75 6d 62 65 | 72 53 74 72 5b 4c 6f 6f |d (Numbe|rStr[Loo|
|00002de0| 70 5d 20 69 6e 20 4c 65 | 67 61 6c 44 69 67 69 74 |p] in Le|galDigit|
|00002df0| 73 29 3b 0d 09 09 09 09 | 69 66 20 47 6f 6f 64 4e |s);.....|if GoodN|
|00002e00| 75 6d 62 65 72 20 74 68 | 65 6e 20 74 68 65 4e 75 |umber th|en theNu|
|00002e10| 6d 62 65 72 3a 3d 54 65 | 6d 70 52 65 61 6c 3b 0d |mber:=Te|mpReal;.|
|00002e20| 0d 09 09 09 09 47 65 74 | 45 64 69 74 52 65 61 6c |.....Get|EditReal|
|00002e30| 3a 3d 47 6f 6f 64 4e 75 | 6d 62 65 72 3b 0d 09 09 |:=GoodNu|mber;...|
|00002e40| 09 65 6e 64 3b 20 7b 47 | 65 74 45 64 69 74 52 65 |.end; {G|etEditRe|
|00002e50| 61 6c 7d 0d 0d 09 09 66 | 75 6e 63 74 69 6f 6e 20 |al}....f|unction |
|00002e60| 4b 65 79 4d 61 74 63 68 | 28 74 68 65 4c 69 73 74 |KeyMatch|(theList|
|00002e70| 52 65 63 48 44 4c 3a 20 | 4b 65 79 4c 69 73 74 52 |RecHDL: |KeyListR|
|00002e80| 65 63 48 44 4c 3b 0d 09 | 09 09 09 09 09 09 09 09 |ecHDL;..|........|
|00002e90| 09 09 74 68 65 43 68 61 | 72 61 63 74 65 72 3a 20 |..theCha|racter: |
|00002ea0| 73 74 72 31 29 3a 20 49 | 4e 54 45 47 45 52 3b 0d |str1): I|NTEGER;.|
|00002eb0| 09 09 09 76 61 72 0d 09 | 09 09 09 54 65 6d 70 53 |...var..|...TempS|
|00002ec0| 74 72 31 2c 20 54 65 6d | 70 53 74 72 32 3a 20 73 |tr1, Tem|pStr2: s|
|00002ed0| 74 72 32 35 35 3b 0d 09 | 09 09 09 4c 6f 6f 70 3a |tr255;..|...Loop:|
|00002ee0| 20 49 4e 54 45 47 45 52 | 3b 0d 09 09 09 62 65 67 | INTEGER|;....beg|
|00002ef0| 69 6e 0d 09 09 09 09 4b | 65 79 4d 61 74 63 68 3a |in.....K|eyMatch:|
|00002f00| 3d 30 3b 0d 09 09 09 09 | 54 65 6d 70 53 74 72 31 |=0;.....|TempStr1|
|00002f10| 3a 3d 74 68 65 43 68 61 | 72 61 63 74 65 72 3b 0d |:=theCha|racter;.|
|00002f20| 09 09 09 09 66 6f 72 20 | 4c 6f 6f 70 3a 3d 31 20 |....for |Loop:=1 |
|00002f30| 74 6f 20 74 68 65 4c 69 | 73 74 52 65 63 48 44 4c |to theLi|stRecHDL|
|00002f40| 5e 5e 2e 4c 69 73 74 43 | 6f 75 6e 74 20 64 6f 0d |^^.ListC|ount do.|
|00002f50| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00002f60| 09 54 65 6d 70 53 74 72 | 32 3a 3d 74 68 65 4c 69 |.TempStr|2:=theLi|
|00002f70| 73 74 52 65 63 48 44 4c | 5e 5e 2e 4c 69 73 74 48 |stRecHDL|^^.ListH|
|00002f80| 44 4c 5e 5e 5b 4c 6f 6f | 70 5d 2e 4b 65 79 3b 0d |DL^^[Loo|p].Key;.|
|00002f90| 09 09 09 09 09 09 69 66 | 20 45 71 75 61 6c 53 74 |......if| EqualSt|
|00002fa0| 72 69 6e 67 28 54 65 6d | 70 53 74 72 31 2c 20 54 |ring(Tem|pStr1, T|
|00002fb0| 65 6d 70 53 74 72 32 2c | 20 46 41 4c 53 45 2c 20 |empStr2,| FALSE, |
|00002fc0| 46 41 4c 53 45 29 20 74 | 68 65 6e 0d 09 09 09 09 |FALSE) t|hen.....|
|00002fd0| 09 09 09 4b 65 79 4d 61 | 74 63 68 3a 3d 4c 6f 6f |...KeyMa|tch:=Loo|
|00002fe0| 70 3b 0d 09 09 09 09 09 | 65 6e 64 3b 20 7b 66 6f |p;......|end; {fo|
|00002ff0| 72 20 4c 6f 6f 70 20 3a | 3d 20 31 20 74 6f 20 74 |r Loop :|= 1 to t|
|00003000| 68 65 4c 69 73 74 52 65 | 63 48 44 4c 5e 5e 2e 4c |heListRe|cHDL^^.L|
|00003010| 69 73 74 43 6f 75 6e 74 | 7d 0d 09 09 09 65 6e 64 |istCount|}....end|
|00003020| 3b 20 7b 4b 65 79 4d 61 | 74 63 68 7d 0d 0d 09 09 |; {KeyMa|tch}....|
|00003030| 70 72 6f 63 65 64 75 72 | 65 20 41 64 64 4b 65 79 |procedur|e AddKey|
|00003040| 28 74 68 65 4c 69 73 74 | 52 65 63 48 44 4c 3a 20 |(theList|RecHDL: |
|00003050| 4b 65 79 4c 69 73 74 52 | 65 63 48 44 4c 3b 0d 09 |KeyListR|ecHDL;..|
|00003060| 09 09 09 09 09 09 09 09 | 09 20 74 68 65 43 6f 6e |........|. theCon|
|00003070| 74 72 6f 6c 3a 20 43 6f | 6e 74 72 6f 6c 48 61 6e |trol: Co|ntrolHan|
|00003080| 64 6c 65 3b 0d 09 09 09 | 09 09 09 09 09 09 09 20 |dle;....|....... |
|00003090| 74 68 65 49 74 65 6d 4e | 75 6d 62 65 72 3a 20 49 |theItemN|umber: I|
|000030a0| 4e 54 45 47 45 52 29 3b | 0d 09 09 09 76 61 72 0d |NTEGER);|....var.|
|000030b0| 09 09 09 09 54 65 6d 70 | 4b 65 79 3a 20 4b 65 79 |....Temp|Key: Key|
|000030c0| 52 65 70 6c 61 63 65 52 | 65 63 3b 0d 09 09 09 09 |ReplaceR|ec;.....|
|000030d0| 43 6f 6e 74 72 6f 6c 54 | 69 74 6c 65 3a 20 73 74 |ControlT|itle: st|
|000030e0| 72 32 35 35 3b 0d 09 09 | 09 09 42 79 74 65 43 6f |r255;...|..ByteCo|
|000030f0| 75 6e 74 3a 20 4c 4f 4e | 47 49 4e 54 3b 0d 09 09 |unt: LON|GINT;...|
|00003100| 09 62 65 67 69 6e 0d 09 | 09 09 09 47 65 74 43 54 |.begin..|...GetCT|
|00003110| 69 74 6c 65 28 74 68 65 | 43 6f 6e 74 72 6f 6c 2c |itle(the|Control,|
|00003120| 20 43 6f 6e 74 72 6f 6c | 54 69 74 6c 65 29 3b 0d | Control|Title);.|
|00003130| 0d 09 09 09 09 69 66 20 | 4b 65 79 4d 61 74 63 68 |.....if |KeyMatch|
|00003140| 28 74 68 65 4c 69 73 74 | 52 65 63 48 44 4c 2c 20 |(theList|RecHDL, |
|00003150| 43 6f 70 79 28 43 6f 6e | 74 72 6f 6c 54 69 74 6c |Copy(Con|trolTitl|
|00003160| 65 2c 20 31 2c 20 31 29 | 29 3d 30 20 74 68 65 6e |e, 1, 1)|)=0 then|
|00003170| 0d 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00003180| 09 09 54 65 6d 70 4b 65 | 79 2e 4b 65 79 3a 3d 43 |..TempKe|y.Key:=C|
|00003190| 6f 70 79 28 43 6f 6e 74 | 72 6f 6c 54 69 74 6c 65 |opy(Cont|rolTitle|
|000031a0| 2c 20 31 2c 20 31 29 3b | 0d 09 09 09 09 09 09 54 |, 1, 1);|.......T|
|000031b0| 65 6d 70 4b 65 79 2e 49 | 74 65 6d 3a 3d 74 68 65 |empKey.I|tem:=the|
|000031c0| 49 74 65 6d 4e 75 6d 62 | 65 72 3b 0d 0d 09 09 09 |ItemNumb|er;.....|
|000031d0| 09 09 09 74 68 65 4c 69 | 73 74 52 65 63 48 44 4c |...theLi|stRecHDL|
|000031e0| 5e 5e 2e 4c 69 73 74 43 | 6f 75 6e 74 3a 3d 53 55 |^^.ListC|ount:=SU|
|000031f0| 43 43 28 74 68 65 4c 69 | 73 74 52 65 63 48 44 4c |CC(theLi|stRecHDL|
|00003200| 5e 5e 2e 4c 69 73 74 43 | 6f 75 6e 74 29 3b 0d 09 |^^.ListC|ount);..|
|00003210| 09 09 09 09 09 42 79 74 | 65 43 6f 75 6e 74 3a 3d |.....Byt|eCount:=|
|00003220| 47 65 74 45 76 65 6e 28 | 53 49 5a 45 4f 46 28 4b |GetEven(|SIZEOF(K|
|00003230| 65 79 52 65 70 6c 61 63 | 65 52 65 63 29 29 2a 74 |eyReplac|eRec))*t|
|00003240| 68 65 4c 69 73 74 52 65 | 63 48 44 4c 5e 5e 2e 4c |heListRe|cHDL^^.L|
|00003250| 69 73 74 43 6f 75 6e 74 | 3b 0d 0d 09 09 09 09 09 |istCount|;.......|
|00003260| 09 69 66 20 74 68 65 4c | 69 73 74 52 65 63 48 44 |.if theL|istRecHD|
|00003270| 4c 5e 5e 2e 4c 69 73 74 | 48 44 4c 3d 6e 69 6c 20 |L^^.List|HDL=nil |
|00003280| 74 68 65 6e 0d 09 09 09 | 09 09 09 09 74 68 65 4c |then....|....theL|
|00003290| 69 73 74 52 65 63 48 44 | 4c 5e 5e 2e 4c 69 73 74 |istRecHD|L^^.List|
|000032a0| 48 44 4c 3a 3d 4b 65 79 | 4c 69 73 74 48 44 4c 28 |HDL:=Key|ListHDL(|
|000032b0| 4e 65 77 48 61 6e 64 6c | 65 28 42 79 74 65 43 6f |NewHandl|e(ByteCo|
|000032c0| 75 6e 74 29 29 0d 09 09 | 09 09 09 09 65 6c 73 65 |unt))...|....else|
|000032d0| 0d 09 09 09 09 09 09 09 | 53 65 74 48 61 6e 64 6c |........|SetHandl|
|000032e0| 65 53 69 7a 65 28 48 61 | 6e 64 6c 65 28 74 68 65 |eSize(Ha|ndle(the|
|000032f0| 4c 69 73 74 52 65 63 48 | 44 4c 5e 5e 2e 4c 69 73 |ListRecH|DL^^.Lis|
|00003300| 74 48 44 4c 29 2c 20 42 | 79 74 65 43 6f 75 6e 74 |tHDL), B|yteCount|
|00003310| 29 3b 0d 0d 09 09 09 09 | 09 09 74 68 65 4c 69 73 |);......|..theLis|
|00003320| 74 52 65 63 48 44 4c 5e | 5e 2e 4c 69 73 74 48 44 |tRecHDL^|^.ListHD|
|00003330| 4c 5e 5e 5b 74 68 65 4c | 69 73 74 52 65 63 48 44 |L^^[theL|istRecHD|
|00003340| 4c 5e 5e 2e 4c 69 73 74 | 43 6f 75 6e 74 5d 3a 3d |L^^.List|Count]:=|
|00003350| 54 65 6d 70 4b 65 79 3b | 0d 09 09 09 09 09 65 6e |TempKey;|......en|
|00003360| 64 3b 20 7b 69 66 20 4b | 65 79 4d 61 74 63 68 28 |d; {if K|eyMatch(|
|00003370| 74 68 65 4c 69 73 74 52 | 65 63 48 44 4c 2c 20 43 |theListR|ecHDL, C|
|00003380| 6f 6e 74 72 6f 6c 54 69 | 74 6c 65 5b 31 5d 29 20 |ontrolTi|tle[1]) |
|00003390| 3d 20 30 7d 0d 09 09 09 | 65 6e 64 3b 20 7b 41 64 |= 0}....|end; {Ad|
|000033a0| 64 4b 65 79 7d 0d 0d 09 | 09 66 75 6e 63 74 69 6f |dKey}...|.functio|
|000033b0| 6e 20 44 6f 44 69 61 6c | 6f 67 4d 6f 75 73 65 28 |n DoDial|ogMouse(|
|000033c0| 74 68 65 4c 69 73 74 48 | 44 4c 3a 20 4b 65 79 4c |theListH|DL: KeyL|
|000033d0| 69 73 74 52 65 63 48 44 | 4c 3b 0d 09 09 09 09 09 |istRecHD|L;......|
|000033e0| 09 09 09 09 09 09 09 09 | 20 74 68 65 44 69 61 6c |........| theDial|
|000033f0| 6f 67 3a 20 44 69 61 6c | 6f 67 50 74 72 3b 0d 09 |og: Dial|ogPtr;..|
|00003400| 09 09 09 09 09 09 09 09 | 09 09 09 09 20 74 68 65 |........|.... the|
|00003410| 45 76 65 6e 74 3a 20 45 | 76 65 6e 74 52 65 63 6f |Event: E|ventReco|
|00003420| 72 64 3b 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |rd;.....|........|
|00003430| 09 20 76 61 72 20 74 68 | 65 49 74 65 6d 3a 20 49 |. var th|eItem: I|
|00003440| 4e 54 45 47 45 52 29 3a | 20 42 4f 4f 4c 45 41 4e |NTEGER):| BOOLEAN|
|00003450| 3b 0d 09 09 09 76 61 72 | 0d 09 09 09 09 53 61 76 |;....var|.....Sav|
|00003460| 65 50 6f 72 74 3a 20 47 | 72 61 66 50 74 72 3b 0d |ePort: G|rafPtr;.|
|00003470| 09 09 09 09 43 6f 6e 74 | 72 6f 6c 48 44 4c 3a 20 |....Cont|rolHDL: |
|00003480| 43 6f 6e 74 72 6f 6c 48 | 61 6e 64 6c 65 3b 0d 09 |ControlH|andle;..|
|00003490| 09 09 09 49 74 65 6d 48 | 44 4c 3a 20 48 61 6e 64 |...ItemH|DL: Hand|
|000034a0| 6c 65 3b 0d 09 09 09 09 | 49 74 65 6d 52 65 63 74 |le;.....|ItemRect|
|000034b0| 3a 20 52 65 63 74 3b 0d | 09 09 09 09 4c 6f 63 61 |: Rect;.|....Loca|
|000034c0| 6c 50 6f 69 6e 74 3a 20 | 50 6f 69 6e 74 3b 0d 09 |lPoint: |Point;..|
|000034d0| 09 09 09 49 74 65 6d 54 | 79 70 65 2c 20 43 6f 6e |...ItemT|ype, Con|
|000034e0| 74 72 6f 6c 50 61 72 74 | 3a 20 49 4e 54 45 47 45 |trolPart|: INTEGE|
|000034f0| 52 3b 0d 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |R;....be|gin.....|
|00003500| 44 6f 44 69 61 6c 6f 67 | 4d 6f 75 73 65 3a 3d 46 |DoDialog|Mouse:=F|
|00003510| 41 4c 53 45 3b 0d 09 09 | 09 09 47 65 74 50 6f 72 |ALSE;...|..GetPor|
|00003520| 74 28 53 61 76 65 50 6f | 72 74 29 3b 0d 09 09 09 |t(SavePo|rt);....|
|00003530| 09 53 65 74 50 6f 72 74 | 28 74 68 65 44 69 61 6c |.SetPort|(theDial|
|00003540| 6f 67 29 3b 0d 0d 09 09 | 09 09 4c 6f 63 61 6c 50 |og);....|..LocalP|
|00003550| 6f 69 6e 74 3a 3d 74 68 | 65 45 76 65 6e 74 2e 77 |oint:=th|eEvent.w|
|00003560| 68 65 72 65 3b 0d 09 09 | 09 09 47 6c 6f 62 61 6c |here;...|..Global|
|00003570| 74 6f 4c 6f 63 61 6c 28 | 4c 6f 63 61 6c 50 6f 69 |toLocal(|LocalPoi|
|00003580| 6e 74 29 3b 0d 09 09 09 | 09 43 6f 6e 74 72 6f 6c |nt);....|.Control|
|00003590| 50 61 72 74 3a 3d 46 69 | 6e 64 43 6f 6e 74 72 6f |Part:=Fi|ndContro|
|000035a0| 6c 28 4c 6f 63 61 6c 50 | 6f 69 6e 74 2c 20 74 68 |l(LocalP|oint, th|
|000035b0| 65 44 69 61 6c 6f 67 2c | 20 43 6f 6e 74 72 6f 6c |eDialog,| Control|
|000035c0| 48 44 4c 29 3b 0d 09 09 | 09 09 69 66 20 43 6f 6e |HDL);...|..if Con|
|000035d0| 74 72 6f 6c 50 61 72 74 | 3c 3e 30 20 74 68 65 6e |trolPart|<>0 then|
|000035e0| 0d 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|000035f0| 09 09 74 68 65 49 74 65 | 6d 3a 3d 46 69 6e 64 44 |..theIte|m:=FindD|
|00003600| 49 74 65 6d 28 74 68 65 | 44 69 61 6c 6f 67 2c 20 |Item(the|Dialog, |
|00003610| 4c 6f 63 61 6c 50 6f 69 | 6e 74 29 3b 0d 09 09 09 |LocalPoi|nt);....|
|00003620| 09 09 09 74 68 65 49 74 | 65 6d 3a 3d 53 55 43 43 |...theIt|em:=SUCC|
|00003630| 28 74 68 65 49 74 65 6d | 29 3b 0d 09 09 09 09 09 |(theItem|);......|
|00003640| 09 69 66 20 74 68 65 49 | 74 65 6d 3e 30 20 74 68 |.if theI|tem>0 th|
|00003650| 65 6e 0d 09 09 09 09 09 | 09 09 62 65 67 69 6e 0d |en......|..begin.|
|00003660| 09 09 09 09 09 09 09 09 | 47 65 74 44 49 74 65 6d |........|GetDItem|
|00003670| 28 74 68 65 44 69 61 6c | 6f 67 2c 20 74 68 65 49 |(theDial|og, theI|
|00003680| 74 65 6d 2c 20 49 74 65 | 6d 54 79 70 65 2c 20 49 |tem, Ite|mType, I|
|00003690| 74 65 6d 48 44 4c 2c 20 | 49 74 65 6d 52 65 63 74 |temHDL, |ItemRect|
|000036a0| 29 3b 0d 09 09 09 09 09 | 09 09 09 69 66 20 49 74 |);......|...if It|
|000036b0| 65 6d 54 79 70 65 3d 52 | 61 64 69 6f 42 75 74 74 |emType=R|adioButt|
|000036c0| 6f 6e 20 74 68 65 6e 0d | 09 09 09 09 09 09 09 09 |on then.|........|
|000036d0| 09 62 65 67 69 6e 0d 09 | 09 09 09 09 09 09 09 09 |.begin..|........|
|000036e0| 09 69 66 20 74 68 65 49 | 74 65 6d 3d 74 68 65 4c |.if theI|tem=theL|
|000036f0| 69 73 74 48 44 4c 5e 5e | 2e 4c 61 73 74 49 74 65 |istHDL^^|.LastIte|
|00003700| 6d 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 09 09 |m then..|........|
|00003710| 09 09 62 65 67 69 6e 0d | 09 09 09 09 09 09 09 09 |..begin.|........|
|00003720| 09 09 09 09 69 66 20 28 | 74 68 65 45 76 65 6e 74 |....if (|theEvent|
|00003730| 2e 77 68 65 6e 2d 74 68 | 65 4c 69 73 74 48 44 4c |.when-th|eListHDL|
|00003740| 5e 5e 2e 4c 61 73 74 54 | 69 6d 65 29 3c 3d 0d 09 |^^.LastT|ime)<=..|
|00003750| 09 09 09 09 09 09 09 09 | 09 09 09 09 20 47 65 74 |........|.... Get|
|00003760| 44 62 6c 54 69 6d 65 20 | 74 68 65 6e 0d 09 09 09 |DblTime |then....|
|00003770| 09 09 09 09 09 09 09 09 | 09 09 62 65 67 69 6e 0d |........|..begin.|
|00003780| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 74 68 |........|......th|
|00003790| 65 49 74 65 6d 3a 3d 31 | 3b 0d 09 09 09 09 09 09 |eItem:=1|;.......|
|000037a0| 09 09 09 09 09 09 09 09 | 44 6f 44 69 61 6c 6f 67 |........|DoDialog|
|000037b0| 4d 6f 75 73 65 3a 3d 54 | 52 55 45 3b 0d 09 09 09 |Mouse:=T|RUE;....|
|000037c0| 09 09 09 09 09 09 09 09 | 09 09 65 6e 64 3b 20 7b |........|..end; {|
|000037d0| 69 66 20 28 74 68 65 45 | 76 65 6e 74 2e 77 68 65 |if (theE|vent.whe|
|000037e0| 6e 20 2d 20 74 68 65 4c | 69 73 74 48 44 4c 5e 5e |n - theL|istHDL^^|
|000037f0| 2e 4c 61 73 74 54 69 6d | 65 29 20 3c 3d 0d 09 09 |.LastTim|e) <=...|
|00003800| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 47 65 |........|......Ge|
|00003810| 74 44 62 6c 54 69 6d 65 | 7d 0d 09 09 09 09 09 09 |tDblTime|}.......|
|00003820| 09 09 09 09 09 65 6e 64 | 3b 20 7b 69 66 20 74 68 |.....end|; {if th|
|00003830| 65 49 74 65 6d 20 3d 20 | 74 68 65 4c 69 73 74 48 |eItem = |theListH|
|00003840| 44 4c 5e 5e 2e 4c 61 73 | 74 49 74 65 6d 7d 0d 0d |DL^^.Las|tItem}..|
|00003850| 09 09 09 09 09 09 09 09 | 09 09 74 68 65 4c 69 73 |........|..theLis|
|00003860| 74 48 44 4c 5e 5e 2e 4c | 61 73 74 49 74 65 6d 3a |tHDL^^.L|astItem:|
|00003870| 3d 74 68 65 49 74 65 6d | 3b 0d 09 09 09 09 09 09 |=theItem|;.......|
|00003880| 09 09 09 09 74 68 65 4c | 69 73 74 48 44 4c 5e 5e |....theL|istHDL^^|
|00003890| 2e 4c 61 73 74 54 69 6d | 65 3a 3d 74 68 65 45 76 |.LastTim|e:=theEv|
|000038a0| 65 6e 74 2e 77 68 65 6e | 3b 0d 09 09 09 09 09 09 |ent.when|;.......|
|000038b0| 09 09 09 65 6e 64 3b 20 | 7b 69 66 20 28 49 74 65 |...end; |{if (Ite|
|000038c0| 6d 54 79 70 65 20 3d 20 | 52 61 64 69 6f 42 75 74 |mType = |RadioBut|
|000038d0| 74 6f 6e 29 7d 0d 09 09 | 09 09 09 09 09 65 6e 64 |ton)}...|.....end|
|000038e0| 3b 20 7b 69 66 20 74 68 | 65 49 74 65 6d 20 3e 20 |; {if th|eItem > |
|000038f0| 30 7d 0d 09 09 09 09 09 | 65 6e 64 3b 20 7b 69 66 |0}......|end; {if|
|00003900| 20 43 6f 6e 74 72 6f 6c | 50 61 72 74 20 3c 3e 20 | Control|Part <> |
|00003910| 30 7d 0d 09 09 09 09 53 | 65 74 50 6f 72 74 28 53 |0}.....S|etPort(S|
|00003920| 61 76 65 50 6f 72 74 29 | 3b 0d 09 09 09 65 6e 64 |avePort)|;....end|
|00003930| 3b 20 7b 44 6f 44 69 61 | 6c 6f 67 4d 6f 75 73 65 |; {DoDia|logMouse|
|00003940| 7d 0d 0d 09 09 66 75 6e | 63 74 69 6f 6e 20 44 6f |}....fun|ction Do|
|00003950| 44 69 61 6c 6f 67 4b 65 | 79 44 6f 77 6e 28 74 68 |DialogKe|yDown(th|
|00003960| 65 4c 69 73 74 48 44 4c | 3a 20 4b 65 79 4c 69 73 |eListHDL|: KeyLis|
|00003970| 74 52 65 63 48 44 4c 3b | 0d 09 09 09 09 09 09 09 |tRecHDL;|........|
|00003980| 09 09 09 09 09 09 09 20 | 74 68 65 44 69 61 6c 6f |....... |theDialo|
|00003990| 67 3a 20 44 69 61 6c 6f | 67 50 74 72 3b 0d 09 09 |g: Dialo|gPtr;...|
|000039a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 20 74 68 65 |........|.... the|
|000039b0| 45 76 65 6e 74 3a 20 45 | 76 65 6e 74 52 65 63 6f |Event: E|ventReco|
|000039c0| 72 64 3b 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |rd;.....|........|
|000039d0| 09 09 20 76 61 72 20 74 | 68 65 49 74 65 6d 3a 20 |.. var t|heItem: |
|000039e0| 49 4e 54 45 47 45 52 29 | 3a 20 42 4f 4f 4c 45 41 |INTEGER)|: BOOLEA|
|000039f0| 4e 3b 0d 09 09 09 76 61 | 72 0d 09 09 09 09 74 68 |N;....va|r.....th|
|00003a00| 65 43 68 61 72 61 63 74 | 65 72 3a 20 73 74 72 31 |eCharact|er: str1|
|00003a10| 3b 0d 09 09 09 09 49 6e | 64 65 78 3a 20 49 4e 54 |;.....In|dex: INT|
|00003a20| 45 47 45 52 3b 0d 09 09 | 09 62 65 67 69 6e 0d 09 |EGER;...|.begin..|
|00003a30| 09 09 09 74 68 65 49 74 | 65 6d 3a 3d 30 3b 0d 09 |...theIt|em:=0;..|
|00003a40| 09 09 09 44 6f 44 69 61 | 6c 6f 67 4b 65 79 44 6f |...DoDia|logKeyDo|
|00003a50| 77 6e 3a 3d 46 41 4c 53 | 45 3b 0d 09 09 09 09 74 |wn:=FALS|E;.....t|
|00003a60| 68 65 43 68 61 72 61 63 | 74 65 72 3a 3d 27 20 27 |heCharac|ter:=' '|
|00003a70| 3b 0d 09 09 09 09 74 68 | 65 43 68 61 72 61 63 74 |;.....th|eCharact|
|00003a80| 65 72 5b 31 5d 3a 3d 43 | 48 52 28 42 69 74 41 6e |er[1]:=C|HR(BitAn|
|00003a90| 64 28 74 68 65 45 76 65 | 6e 74 2e 6d 65 73 73 61 |d(theEve|nt.messa|
|00003aa0| 67 65 2c 20 63 68 61 72 | 43 6f 64 65 4d 61 73 6b |ge, char|CodeMask|
|00003ab0| 29 29 3b 0d 09 09 09 09 | 69 66 20 28 4f 52 44 28 |));.....|if (ORD(|
|00003ac0| 74 68 65 43 68 61 72 61 | 63 74 65 72 5b 31 5d 29 |theChara|cter[1])|
|00003ad0| 3d 43 52 29 20 6f 72 20 | 28 4f 52 44 28 74 68 65 |=CR) or |(ORD(the|
|00003ae0| 43 68 61 72 61 63 74 65 | 72 5b 31 5d 29 3d 45 54 |Characte|r[1])=ET|
|00003af0| 58 29 20 74 68 65 6e 0d | 09 09 09 09 09 62 65 67 |X) then.|.....beg|
|00003b00| 69 6e 0d 09 09 09 09 09 | 09 74 68 65 49 74 65 6d |in......|.theItem|
|00003b10| 3a 3d 31 3b 0d 09 09 09 | 09 09 09 44 6f 44 69 61 |:=1;....|...DoDia|
|00003b20| 6c 6f 67 4b 65 79 44 6f | 77 6e 3a 3d 54 52 55 45 |logKeyDo|wn:=TRUE|
|00003b30| 3b 0d 09 09 09 09 09 65 | 6e 64 20 7b 69 66 20 4f |;......e|nd {if O|
|00003b40| 52 44 28 74 68 65 43 68 | 61 72 61 63 74 65 72 5b |RD(theCh|aracter[|
|00003b50| 31 5d 29 20 3d 20 43 52 | 20 6f 72 20 4f 52 44 28 |1]) = CR| or ORD(|
|00003b60| 74 68 65 43 68 61 72 61 | 63 74 65 72 5b 31 5d 29 |theChara|cter[1])|
|00003b70| 20 3d 20 45 54 58 7d 0d | 09 09 09 09 65 6c 73 65 | = ETX}.|....else|
|00003b80| 0d 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00003b90| 09 09 69 66 20 43 6d 64 | 4b 65 79 44 6f 77 6e 28 |..if Cmd|KeyDown(|
|00003ba0| 74 68 65 45 76 65 6e 74 | 2e 6d 6f 64 69 66 69 65 |theEvent|.modifie|
|00003bb0| 72 73 29 20 74 68 65 6e | 0d 09 09 09 09 09 09 09 |rs) then|........|
|00003bc0| 62 65 67 69 6e 0d 09 09 | 09 09 09 09 09 09 49 6e |begin...|......In|
|00003bd0| 64 65 78 3a 3d 4b 65 79 | 4d 61 74 63 68 28 74 68 |dex:=Key|Match(th|
|00003be0| 65 4c 69 73 74 48 44 4c | 2c 20 74 68 65 43 68 61 |eListHDL|, theCha|
|00003bf0| 72 61 63 74 65 72 29 3b | 0d 09 09 09 09 09 09 09 |racter);|........|
|00003c00| 09 69 66 20 49 6e 64 65 | 78 3c 3e 30 20 74 68 65 |.if Inde|x<>0 the|
|00003c10| 6e 0d 09 09 09 09 09 09 | 09 09 09 62 65 67 69 6e |n.......|...begin|
|00003c20| 0d 09 09 09 09 09 09 09 | 09 09 09 74 68 65 49 74 |........|...theIt|
|00003c30| 65 6d 3a 3d 74 68 65 4c | 69 73 74 48 44 4c 5e 5e |em:=theL|istHDL^^|
|00003c40| 2e 4c 69 73 74 48 44 4c | 5e 5e 5b 49 6e 64 65 78 |.ListHDL|^^[Index|
|00003c50| 5d 2e 49 74 65 6d 3b 0d | 09 09 09 09 09 09 09 09 |].Item;.|........|
|00003c60| 09 09 44 6f 44 69 61 6c | 6f 67 4b 65 79 44 6f 77 |..DoDial|ogKeyDow|
|00003c70| 6e 3a 3d 54 52 55 45 3b | 0d 09 09 09 09 09 09 09 |n:=TRUE;|........|
|00003c80| 09 09 65 6e 64 3b 20 7b | 69 66 20 49 6e 64 65 78 |..end; {|if Index|
|00003c90| 20 3c 3e 20 30 7d 0d 09 | 09 09 09 09 09 09 65 6e | <> 0}..|......en|
|00003ca0| 64 3b 20 7b 69 66 20 28 | 43 68 61 72 4d 6f 64 69 |d; {if (|CharModi|
|00003cb0| 66 65 72 73 20 3e 20 30 | 29 20 61 6e 64 20 2e 2e |fers > 0|) and ..|
|00003cc0| 2e 7d 0d 09 09 09 09 09 | 65 6e 64 3b 20 7b 65 6c |.}......|end; {el|
|00003cd0| 73 65 7d 0d 09 09 09 65 | 6e 64 3b 20 7b 44 6f 44 |se}....e|nd; {DoD|
|00003ce0| 69 61 6c 6f 67 4b 65 79 | 44 6f 77 6e 7d 0d 0d 09 |ialogKey|Down}...|
|00003cf0| 09 66 75 6e 63 74 69 6f | 6e 20 43 65 6e 74 65 72 |.functio|n Center|
|00003d00| 4e 65 77 44 69 61 6c 6f | 67 3b 0d 09 09 09 76 61 |NewDialo|g;....va|
|00003d10| 72 0d 09 09 09 09 44 69 | 61 6c 6f 67 3a 20 44 69 |r.....Di|alog: Di|
|00003d20| 61 6c 6f 67 50 74 72 3b | 0d 09 09 09 09 44 69 61 |alogPtr;|.....Dia|
|00003d30| 6c 6f 67 52 65 63 74 3a | 20 52 65 63 74 3b 0d 09 |logRect:| Rect;..|
|00003d40| 09 09 62 65 67 69 6e 0d | 09 09 09 09 44 69 61 6c |..begin.|....Dial|
|00003d50| 6f 67 3a 3d 47 65 74 4e | 65 77 44 69 61 6c 6f 67 |og:=GetN|ewDialog|
|00003d60| 28 74 68 65 44 69 61 6c | 6f 67 49 44 2c 20 64 53 |(theDial|ogID, dS|
|00003d70| 74 6f 72 61 67 65 2c 20 | 62 65 68 69 6e 64 29 3b |torage, |behind);|
|00003d80| 0d 09 09 09 09 44 69 61 | 6c 6f 67 52 65 63 74 3a |.....Dia|logRect:|
|00003d90| 3d 44 69 61 6c 6f 67 5e | 2e 70 6f 72 74 52 65 63 |=Dialog^|.portRec|
|00003da0| 74 3b 0d 09 09 09 09 43 | 65 6e 74 65 72 49 6e 53 |t;.....C|enterInS|
|00003db0| 63 72 65 65 6e 28 44 69 | 61 6c 6f 67 52 65 63 74 |creen(Di|alogRect|
|00003dc0| 2c 20 76 4f 66 66 53 65 | 74 2c 20 68 4f 66 66 53 |, vOffSe|t, hOffS|
|00003dd0| 65 74 29 3b 0d 09 09 09 | 09 4d 6f 76 65 57 69 6e |et);....|.MoveWin|
|00003de0| 64 6f 77 28 44 69 61 6c | 6f 67 2c 20 44 69 61 6c |dow(Dial|og, Dial|
|00003df0| 6f 67 52 65 63 74 2e 6c | 65 66 74 2c 20 44 69 61 |ogRect.l|eft, Dia|
|00003e00| 6c 6f 67 52 65 63 74 2e | 74 6f 70 2c 20 54 52 55 |logRect.|top, TRU|
|00003e10| 45 29 3b 0d 09 09 09 09 | 43 65 6e 74 65 72 4e 65 |E);.....|CenterNe|
|00003e20| 77 44 69 61 6c 6f 67 3a | 3d 44 69 61 6c 6f 67 3b |wDialog:|=Dialog;|
|00003e30| 0d 09 09 09 65 6e 64 3b | 20 7b 43 65 6e 74 65 72 |....end;| {Center|
|00003e40| 4e 65 77 44 69 61 6c 6f | 67 7d 0d 0d 09 09 70 72 |NewDialo|g}....pr|
|00003e50| 6f 63 65 64 75 72 65 20 | 4f 75 74 4c 69 6e 65 42 |ocedure |OutLineB|
|00003e60| 75 74 74 6f 6e 3b 0d 09 | 09 09 76 61 72 0d 09 09 |utton;..|..var...|
|00003e70| 09 09 4f 6c 64 50 65 6e | 53 74 61 74 65 3a 20 50 |..OldPen|State: P|
|00003e80| 65 6e 53 74 61 74 65 3b | 0d 09 09 09 09 53 61 76 |enState;|.....Sav|
|00003e90| 65 50 6f 72 74 3a 20 47 | 72 61 66 50 74 72 3b 0d |ePort: G|rafPtr;.|
|00003ea0| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 47 65 74 |...begin|.....Get|
|00003eb0| 50 6f 72 74 28 53 61 76 | 65 50 6f 72 74 29 3b 0d |Port(Sav|ePort);.|
|00003ec0| 09 09 09 09 53 65 74 50 | 6f 72 74 28 74 68 65 50 |....SetP|ort(theP|
|00003ed0| 6f 72 74 29 3b 0d 09 09 | 09 09 47 65 74 50 65 6e |ort);...|..GetPen|
|00003ee0| 53 74 61 74 65 28 4f 6c | 64 50 65 6e 53 74 61 74 |State(Ol|dPenStat|
|00003ef0| 65 29 3b 0d 09 09 09 09 | 50 65 6e 53 69 7a 65 28 |e);.....|PenSize(|
|00003f00| 33 2c 20 33 29 3b 0d 09 | 09 09 09 49 6e 73 65 74 |3, 3);..|...Inset|
|00003f10| 52 65 63 74 28 74 68 65 | 52 65 63 74 2c 20 2d 34 |Rect(the|Rect, -4|
|00003f20| 2c 20 2d 34 29 3b 0d 09 | 09 09 09 46 72 61 6d 65 |, -4);..|...Frame|
|00003f30| 52 6f 75 6e 64 52 65 63 | 74 28 74 68 65 52 65 63 |RoundRec|t(theRec|
|00003f40| 74 2c 20 31 36 2c 20 31 | 36 29 3b 0d 09 09 09 09 |t, 16, 1|6);.....|
|00003f50| 53 65 74 50 65 6e 53 74 | 61 74 65 28 4f 6c 64 50 |SetPenSt|ate(OldP|
|00003f60| 65 6e 53 74 61 74 65 29 | 3b 0d 09 09 09 09 53 65 |enState)|;.....Se|
|00003f70| 74 50 6f 72 74 28 53 61 | 76 65 50 6f 72 74 29 3b |tPort(Sa|vePort);|
|00003f80| 0d 09 09 09 65 6e 64 3b | 20 7b 4f 75 74 4c 69 6e |....end;| {OutLin|
|00003f90| 65 52 65 63 74 7d 0d 0d | 09 09 70 72 6f 63 65 64 |eRect}..|..proced|
|00003fa0| 75 72 65 20 44 69 61 6c | 6f 67 44 65 66 61 75 6c |ure Dial|ogDefaul|
|00003fb0| 74 3b 0d 09 09 09 76 61 | 72 0d 09 09 09 09 49 74 |t;....va|r.....It|
|00003fc0| 65 6d 48 44 4c 3a 20 48 | 61 6e 64 6c 65 3b 0d 09 |emHDL: H|andle;..|
|00003fd0| 09 09 09 49 74 65 6d 52 | 65 63 74 3a 20 52 65 63 |...ItemR|ect: Rec|
|00003fe0| 74 3b 0d 09 09 09 09 49 | 74 65 6d 54 79 70 65 3a |t;.....I|temType:|
|00003ff0| 20 49 4e 54 45 47 45 52 | 3b 0d 09 09 09 62 65 67 | INTEGER|;....beg|
|00004000| 69 6e 0d 09 09 09 09 69 | 66 20 74 68 65 44 69 61 |in.....i|f theDia|
|00004010| 6c 6f 67 3c 3e 6e 69 6c | 20 74 68 65 6e 0d 09 09 |log<>nil| then...|
|00004020| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 47 |...begin|.......G|
|00004030| 65 74 44 49 74 65 6d 28 | 74 68 65 44 69 61 6c 6f |etDItem(|theDialo|
|00004040| 67 2c 20 44 65 66 61 75 | 6c 74 49 74 65 6d 2c 20 |g, Defau|ltItem, |
|00004050| 49 74 65 6d 54 79 70 65 | 2c 20 49 74 65 6d 48 44 |ItemType|, ItemHD|
|00004060| 4c 2c 20 49 74 65 6d 52 | 65 63 74 29 3b 0d 09 09 |L, ItemR|ect);...|
|00004070| 09 09 09 09 4f 75 74 4c | 69 6e 65 42 75 74 74 6f |....OutL|ineButto|
|00004080| 6e 28 74 68 65 44 69 61 | 6c 6f 67 2c 20 49 74 65 |n(theDia|log, Ite|
|00004090| 6d 52 65 63 74 29 3b 0d | 09 09 09 09 09 65 6e 64 |mRect);.|.....end|
|000040a0| 3b 20 7b 69 66 20 74 68 | 65 44 69 61 6c 6f 67 20 |; {if th|eDialog |
|000040b0| 3c 3e 20 6e 69 6c 7d 0d | 09 09 09 65 6e 64 3b 20 |<> nil}.|...end; |
|000040c0| 7b 44 69 61 6c 6f 67 44 | 65 66 61 75 6c 74 7d 0d |{DialogD|efault}.|
|000040d0| 0d 09 09 66 75 6e 63 74 | 69 6f 6e 20 44 69 61 6c |...funct|ion Dial|
|000040e0| 6f 67 46 69 6c 74 65 72 | 28 74 68 65 44 69 61 6c |ogFilter|(theDial|
|000040f0| 6f 67 3a 20 44 69 61 6c | 6f 67 50 74 72 3b 0d 09 |og: Dial|ogPtr;..|
|00004100| 09 09 09 09 09 09 09 09 | 09 09 09 09 76 61 72 20 |........|....var |
|00004110| 74 68 65 45 76 65 6e 74 | 3a 20 45 76 65 6e 74 52 |theEvent|: EventR|
|00004120| 65 63 6f 72 64 3b 0d 09 | 09 09 09 09 09 09 09 09 |ecord;..|........|
|00004130| 09 09 09 09 76 61 72 20 | 74 68 65 49 74 65 6d 3a |....var |theItem:|
|00004140| 20 49 4e 54 45 47 45 52 | 29 3a 20 42 4f 4f 4c 45 | INTEGER|): BOOLE|
|00004150| 41 4e 3b 0d 09 09 09 76 | 61 72 0d 09 09 09 09 4c |AN;....v|ar.....L|
|00004160| 69 73 74 52 65 63 48 44 | 4c 3a 20 4b 65 79 4c 69 |istRecHD|L: KeyLi|
|00004170| 73 74 52 65 63 48 44 4c | 3b 0d 09 09 09 09 49 74 |stRecHDL|;.....It|
|00004180| 65 6d 48 61 6e 64 6c 65 | 3a 20 48 61 6e 64 6c 65 |emHandle|: Handle|
|00004190| 3b 0d 09 09 09 09 43 6f | 6e 74 72 6f 6c 48 44 4c |;.....Co|ntrolHDL|
|000041a0| 3a 20 43 6f 6e 74 72 6f | 6c 48 61 6e 64 6c 65 3b |: Contro|lHandle;|
|000041b0| 0d 09 09 09 09 49 74 65 | 6d 52 65 63 74 3a 20 52 |.....Ite|mRect: R|
|000041c0| 65 63 74 3b 0d 09 09 09 | 09 49 74 65 6d 54 79 70 |ect;....|.ItemTyp|
|000041d0| 65 3a 20 49 4e 54 45 47 | 45 52 3b 0d 09 09 09 09 |e: INTEG|ER;.....|
|000041e0| 52 65 61 6c 44 65 6c 61 | 79 3a 20 4c 4f 4e 47 49 |RealDela|y: LONGI|
|000041f0| 4e 54 3b 0d 09 09 09 09 | 4d 79 49 74 65 6d 3a 20 |NT;.....|MyItem: |
|00004200| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 09 62 65 67 69 |BOOLEAN;|....begi|
|00004210| 6e 0d 09 09 09 09 44 69 | 61 6c 6f 67 46 69 6c 74 |n.....Di|alogFilt|
|00004220| 65 72 3a 3d 46 41 4c 53 | 45 3b 0d 09 09 09 09 4d |er:=FALS|E;.....M|
|00004230| 79 49 74 65 6d 3a 3d 46 | 41 4c 53 45 3b 0d 09 09 |yItem:=F|ALSE;...|
|00004240| 09 09 4c 69 73 74 52 65 | 63 48 44 4c 3a 3d 4b 65 |..ListRe|cHDL:=Ke|
|00004250| 79 4c 69 73 74 52 65 63 | 48 44 4c 28 47 65 74 57 |yListRec|HDL(GetW|
|00004260| 52 65 66 43 6f 6e 28 74 | 68 65 44 69 61 6c 6f 67 |RefCon(t|heDialog|
|00004270| 29 29 3b 0d 09 09 09 09 | 69 66 20 4c 69 73 74 52 |));.....|if ListR|
|00004280| 65 63 48 44 4c 3c 3e 6e | 69 6c 20 74 68 65 6e 0d |ecHDL<>n|il then.|
|00004290| 09 09 09 09 09 63 61 73 | 65 20 74 68 65 45 76 65 |.....cas|e theEve|
|000042a0| 6e 74 2e 77 68 61 74 20 | 6f 66 0d 09 09 09 09 09 |nt.what |of......|
|000042b0| 09 6d 6f 75 73 65 44 6f | 77 6e 2c 20 6d 6f 75 73 |.mouseDo|wn, mous|
|000042c0| 65 55 70 3a 0d 09 09 09 | 09 09 09 09 4d 79 49 74 |eUp:....|....MyIt|
|000042d0| 65 6d 3a 3d 44 6f 44 69 | 61 6c 6f 67 4d 6f 75 73 |em:=DoDi|alogMous|
|000042e0| 65 28 4c 69 73 74 52 65 | 63 48 44 4c 2c 20 74 68 |e(ListRe|cHDL, th|
|000042f0| 65 44 69 61 6c 6f 67 2c | 20 74 68 65 45 76 65 6e |eDialog,| theEven|
|00004300| 74 2c 20 74 68 65 49 74 | 65 6d 29 3b 0d 0d 09 09 |t, theIt|em);....|
|00004310| 09 09 09 09 6b 65 79 44 | 6f 77 6e 2c 20 61 75 74 |....keyD|own, aut|
|00004320| 6f 4b 65 79 3a 0d 09 09 | 09 09 09 09 09 4d 79 49 |oKey:...|.....MyI|
|00004330| 74 65 6d 3a 3d 44 6f 44 | 69 61 6c 6f 67 4b 65 79 |tem:=DoD|ialogKey|
|00004340| 44 6f 77 6e 28 4c 69 73 | 74 52 65 63 48 44 4c 2c |Down(Lis|tRecHDL,|
|00004350| 20 74 68 65 44 69 61 6c | 6f 67 2c 20 74 68 65 45 | theDial|og, theE|
|00004360| 76 65 6e 74 2c 20 74 68 | 65 49 74 65 6d 29 3b 0d |vent, th|eItem);.|
|00004370| 09 09 09 09 09 65 6e 64 | 3b 20 7b 63 61 73 65 20 |.....end|; {case |
|00004380| 74 68 65 45 76 65 6e 74 | 2e 77 68 61 74 7d 0d 0d |theEvent|.what}..|
|00004390| 09 09 09 09 69 66 20 4d | 79 49 74 65 6d 20 74 68 |....if M|yItem th|
|000043a0| 65 6e 0d 09 09 09 09 09 | 62 65 67 69 6e 0d 09 09 |en......|begin...|
|000043b0| 09 09 09 09 47 65 74 44 | 49 74 65 6d 28 74 68 65 |....GetD|Item(the|
|000043c0| 44 69 61 6c 6f 67 2c 20 | 74 68 65 49 74 65 6d 2c |Dialog, |theItem,|
|000043d0| 20 49 74 65 6d 54 79 70 | 65 2c 20 49 74 65 6d 48 | ItemTyp|e, ItemH|
|000043e0| 61 6e 64 6c 65 2c 20 49 | 74 65 6d 52 65 63 74 29 |andle, I|temRect)|
|000043f0| 3b 0d 09 09 09 09 09 09 | 43 6f 6e 74 72 6f 6c 48 |;.......|ControlH|
|00004400| 44 4c 3a 3d 43 6f 6e 74 | 72 6f 6c 48 61 6e 64 6c |DL:=Cont|rolHandl|
|00004410| 65 28 49 74 65 6d 48 61 | 6e 64 6c 65 29 3b 0d 09 |e(ItemHa|ndle);..|
|00004420| 09 09 09 09 09 4d 79 49 | 74 65 6d 3a 3d 28 4d 79 |.....MyI|tem:=(My|
|00004430| 49 74 65 6d 29 20 61 6e | 64 20 28 43 6f 6e 74 72 |Item) an|d (Contr|
|00004440| 6f 6c 48 44 4c 5e 5e 2e | 63 6f 6e 74 72 6c 48 69 |olHDL^^.|contrlHi|
|00004450| 6c 69 74 65 3c 3e 44 65 | 61 64 43 6f 6e 74 72 6f |lite<>De|adContro|
|00004460| 6c 29 3b 0d 09 09 09 09 | 09 09 69 66 20 4d 79 49 |l);.....|..if MyI|
|00004470| 74 65 6d 20 74 68 65 6e | 0d 09 09 09 09 09 09 09 |tem then|........|
|00004480| 62 65 67 69 6e 0d 09 09 | 09 09 09 09 09 09 48 69 |begin...|......Hi|
|00004490| 6c 69 74 65 43 6f 6e 74 | 72 6f 6c 28 43 6f 6e 74 |liteCont|rol(Cont|
|000044a0| 72 6f 6c 48 61 6e 64 6c | 65 28 49 74 65 6d 48 61 |rolHandl|e(ItemHa|
|000044b0| 6e 64 6c 65 29 2c 20 42 | 74 6e 43 6f 6e 74 72 6f |ndle), B|tnContro|
|000044c0| 6c 4f 6e 29 3b 0d 09 09 | 09 09 09 09 09 09 44 65 |lOn);...|......De|
|000044d0| 6c 61 79 28 45 69 67 68 | 74 68 53 65 63 6f 6e 64 |lay(Eigh|thSecond|
|000044e0| 2c 20 52 65 61 6c 44 65 | 6c 61 79 29 3b 0d 09 09 |, RealDe|lay);...|
|000044f0| 09 09 09 09 09 09 48 69 | 6c 69 74 65 43 6f 6e 74 |......Hi|liteCont|
|00004500| 72 6f 6c 28 43 6f 6e 74 | 72 6f 6c 48 61 6e 64 6c |rol(Cont|rolHandl|
|00004510| 65 28 49 74 65 6d 48 61 | 6e 64 6c 65 29 2c 20 42 |e(ItemHa|ndle), B|
|00004520| 74 6e 43 6f 6e 74 72 6f | 6c 4f 66 66 29 3b 0d 09 |tnContro|lOff);..|
|00004530| 09 09 09 09 09 09 09 44 | 69 61 6c 6f 67 46 69 6c |.......D|ialogFil|
|00004540| 74 65 72 3a 3d 54 52 55 | 45 3b 0d 09 09 09 09 09 |ter:=TRU|E;......|
|00004550| 09 09 65 6e 64 3b 20 7b | 69 66 20 4d 79 49 74 65 |..end; {|if MyIte|
|00004560| 6d 7d 0d 09 09 09 09 09 | 65 6e 64 3b 20 7b 69 66 |m}......|end; {if|
|00004570| 20 4d 79 49 74 65 6d 7d | 0d 09 09 09 65 6e 64 3b | MyItem}|....end;|
|00004580| 20 7b 44 69 61 6c 6f 67 | 46 69 6c 74 65 72 7d 0d | {Dialog|Filter}.|
|00004590| 0d 09 09 70 72 6f 63 65 | 64 75 72 65 20 53 65 74 |...proce|dure Set|
|000045a0| 75 70 44 69 61 6c 6f 67 | 3b 0d 09 09 09 76 61 72 |upDialog|;....var|
|000045b0| 0d 09 09 09 09 4c 69 73 | 74 52 65 63 48 44 4c 3a |.....Lis|tRecHDL:|
|000045c0| 20 4b 65 79 4c 69 73 74 | 52 65 63 48 44 4c 3b 0d | KeyList|RecHDL;.|
|000045d0| 09 09 09 09 49 74 65 6d | 48 44 4c 3a 20 48 61 6e |....Item|HDL: Han|
|000045e0| 64 6c 65 3b 0d 09 09 09 | 09 43 6f 6e 74 72 6f 6c |dle;....|.Control|
|000045f0| 48 44 4c 3a 20 43 6f 6e | 74 72 6f 6c 48 61 6e 64 |HDL: Con|trolHand|
|00004600| 6c 65 3b 0d 09 09 09 09 | 44 69 61 6c 6f 67 52 65 |le;.....|DialogRe|
|00004610| 63 50 74 72 3a 20 44 69 | 61 6c 6f 67 50 65 65 6b |cPtr: Di|alogPeek|
|00004620| 3b 0d 09 09 09 09 44 69 | 61 6c 6f 67 48 44 52 3a |;.....Di|alogHDR:|
|00004630| 20 44 4c 4f 47 48 65 61 | 64 65 72 48 44 4c 3b 0d | DLOGHea|derHDL;.|
|00004640| 09 09 09 09 49 74 65 6d | 52 65 63 74 3a 20 52 65 |....Item|Rect: Re|
|00004650| 63 74 3b 0d 09 09 09 09 | 49 74 65 6d 54 79 70 65 |ct;.....|ItemType|
|00004660| 2c 20 49 74 65 6d 43 6e | 74 2c 20 4c 6f 6f 70 3a |, ItemCn|t, Loop:|
|00004670| 20 49 4e 54 45 47 45 52 | 3b 0d 09 09 09 62 65 67 | INTEGER|;....beg|
|00004680| 69 6e 0d 09 09 09 09 69 | 66 20 4e 65 77 52 6f 6d |in.....i|f NewRom|
|00004690| 73 20 74 68 65 6e 0d 09 | 09 09 09 09 62 65 67 69 |s then..|....begi|
|000046a0| 6e 0d 09 09 09 09 09 09 | 74 68 65 44 69 61 6c 6f |n.......|theDialo|
|000046b0| 67 46 69 6c 74 65 72 3a | 3d 40 44 69 61 6c 6f 67 |gFilter:|=@Dialog|
|000046c0| 46 69 6c 74 65 72 3b 0d | 09 09 09 09 09 09 4c 69 |Filter;.|......Li|
|000046d0| 73 74 52 65 63 48 44 4c | 3a 3d 4b 65 79 4c 69 73 |stRecHDL|:=KeyLis|
|000046e0| 74 52 65 63 48 44 4c 28 | 4e 65 77 48 61 6e 64 6c |tRecHDL(|NewHandl|
|000046f0| 65 28 53 49 5a 45 4f 46 | 28 4b 65 79 4c 69 73 74 |e(SIZEOF|(KeyList|
|00004700| 52 65 63 29 29 29 3b 0d | 09 09 09 09 09 09 77 69 |Rec)));.|......wi|
|00004710| 74 68 20 4c 69 73 74 52 | 65 63 48 44 4c 5e 5e 20 |th ListR|ecHDL^^ |
|00004720| 64 6f 0d 09 09 09 09 09 | 09 09 62 65 67 69 6e 0d |do......|..begin.|
|00004730| 09 09 09 09 09 09 09 09 | 4c 69 73 74 48 44 4c 3a |........|ListHDL:|
|00004740| 3d 6e 69 6c 3b 0d 09 09 | 09 09 09 09 09 09 4c 69 |=nil;...|......Li|
|00004750| 73 74 43 6f 75 6e 74 3a | 3d 30 3b 0d 09 09 09 09 |stCount:|=0;.....|
|00004760| 09 09 09 09 4c 61 73 74 | 49 74 65 6d 3a 3d 30 3b |....Last|Item:=0;|
|00004770| 0d 09 09 09 09 09 09 09 | 09 4f 6c 64 52 65 66 43 |........|.OldRefC|
|00004780| 6f 6e 3a 3d 47 65 74 57 | 52 65 66 43 6f 6e 28 74 |on:=GetW|RefCon(t|
|00004790| 68 65 44 69 61 6c 6f 67 | 29 3b 0d 09 09 09 09 09 |heDialog|);......|
|000047a0| 09 09 09 4c 61 73 74 54 | 69 6d 65 3a 3d 30 3b 0d |...LastT|ime:=0;.|
|000047b0| 09 09 09 09 09 09 09 65 | 6e 64 3b 20 7b 77 69 74 |.......e|nd; {wit|
|000047c0| 68 20 4c 69 73 74 52 65 | 63 74 48 44 4c 5e 5e 7d |h ListRe|ctHDL^^}|
|000047d0| 0d 0d 09 09 09 09 09 09 | 44 69 61 6c 6f 67 52 65 |........|DialogRe|
|000047e0| 63 50 74 72 3a 3d 44 69 | 61 6c 6f 67 50 65 65 6b |cPtr:=Di|alogPeek|
|000047f0| 28 74 68 65 44 69 61 6c | 6f 67 29 3b 0d 09 09 09 |(theDial|og);....|
|00004800| 09 09 09 44 69 61 6c 6f | 67 48 44 52 3a 3d 44 4c |...Dialo|gHDR:=DL|
|00004810| 4f 47 48 65 61 64 65 72 | 48 44 4c 28 44 69 61 6c |OGHeader|HDL(Dial|
|00004820| 6f 67 52 65 63 50 74 72 | 5e 2e 49 74 65 6d 73 29 |ogRecPtr|^.Items)|
|00004830| 3b 0d 09 09 09 09 09 09 | 49 74 65 6d 43 6e 74 3a |;.......|ItemCnt:|
|00004840| 3d 44 69 61 6c 6f 67 48 | 44 52 5e 5e 2e 49 74 65 |=DialogH|DR^^.Ite|
|00004850| 6d 43 6f 75 6e 74 3b 0d | 09 09 09 09 09 09 49 74 |mCount;.|......It|
|00004860| 65 6d 43 6e 74 3a 3d 53 | 55 43 43 28 49 74 65 6d |emCnt:=S|UCC(Item|
|00004870| 43 6e 74 29 3b 0d 0d 09 | 09 09 09 09 09 66 6f 72 |Cnt);...|.....for|
|00004880| 20 4c 6f 6f 70 3a 3d 31 | 20 74 6f 20 49 74 65 6d | Loop:=1| to Item|
|00004890| 43 6e 74 20 64 6f 0d 09 | 09 09 09 09 09 09 62 65 |Cnt do..|......be|
|000048a0| 67 69 6e 0d 09 09 09 09 | 09 09 09 09 47 65 74 44 |gin.....|....GetD|
|000048b0| 49 74 65 6d 28 74 68 65 | 44 69 61 6c 6f 67 2c 20 |Item(the|Dialog, |
|000048c0| 4c 6f 6f 70 2c 20 49 74 | 65 6d 54 79 70 65 2c 20 |Loop, It|emType, |
|000048d0| 49 74 65 6d 48 44 4c 2c | 20 49 74 65 6d 52 65 63 |ItemHDL,| ItemRec|
|000048e0| 74 29 3b 0d 09 09 09 09 | 09 09 09 09 43 6f 6e 74 |t);.....|....Cont|
|000048f0| 72 6f 6c 48 44 4c 3a 3d | 43 6f 6e 74 72 6f 6c 48 |rolHDL:=|ControlH|
|00004900| 61 6e 64 6c 65 28 49 74 | 65 6d 48 44 4c 29 3b 0d |andle(It|emHDL);.|
|00004910| 09 09 09 09 09 09 09 09 | 63 61 73 65 20 49 74 65 |........|case Ite|
|00004920| 6d 54 79 70 65 20 6f 66 | 0d 09 09 09 09 09 09 09 |mType of|........|
|00004930| 09 09 42 75 74 74 6f 6e | 49 74 65 6d 3a 0d 09 09 |..Button|Item:...|
|00004940| 09 09 09 09 09 09 09 09 | 69 66 20 42 75 74 74 6f |........|if Butto|
|00004950| 6e 4b 65 79 73 20 74 68 | 65 6e 20 41 64 64 4b 65 |nKeys th|en AddKe|
|00004960| 79 28 4c 69 73 74 52 65 | 63 48 44 4c 2c 20 43 6f |y(ListRe|cHDL, Co|
|00004970| 6e 74 72 6f 6c 48 44 4c | 2c 20 4c 6f 6f 70 29 3b |ntrolHDL|, Loop);|
|00004980| 0d 09 09 09 09 09 09 09 | 09 09 43 68 65 63 6b 42 |........|..CheckB|
|00004990| 6f 78 3a 0d 09 09 09 09 | 09 09 09 09 09 09 69 66 |ox:.....|......if|
|000049a0| 20 43 68 65 63 6b 42 6f | 78 4b 65 79 73 20 74 68 | CheckBo|xKeys th|
|000049b0| 65 6e 20 41 64 64 4b 65 | 79 28 4c 69 73 74 52 65 |en AddKe|y(ListRe|
|000049c0| 63 48 44 4c 2c 20 43 6f | 6e 74 72 6f 6c 48 44 4c |cHDL, Co|ntrolHDL|
|000049d0| 2c 20 4c 6f 6f 70 29 3b | 0d 09 09 09 09 09 09 09 |, Loop);|........|
|000049e0| 09 09 52 61 64 69 6f 42 | 75 74 74 6f 6e 3a 0d 09 |..RadioB|utton:..|
|000049f0| 09 09 09 09 09 09 09 09 | 09 69 66 20 52 61 64 69 |........|.if Radi|
|00004a00| 6f 4b 65 79 73 20 74 68 | 65 6e 20 41 64 64 4b 65 |oKeys th|en AddKe|
|00004a10| 79 28 4c 69 73 74 52 65 | 63 48 44 4c 2c 20 43 6f |y(ListRe|cHDL, Co|
|00004a20| 6e 74 72 6f 6c 48 44 4c | 2c 20 4c 6f 6f 70 29 3b |ntrolHDL|, Loop);|
|00004a30| 0d 09 09 09 09 09 09 09 | 09 65 6e 64 3b 20 7b 63 |........|.end; {c|
|00004a40| 61 73 65 20 49 74 65 6d | 54 79 70 65 7d 0d 09 09 |ase Item|Type}...|
|00004a50| 09 09 09 09 09 65 6e 64 | 3b 20 7b 66 6f 72 20 4c |.....end|; {for L|
|00004a60| 6f 6f 70 20 3a 3d 20 31 | 20 74 6f 20 49 74 65 6d |oop := 1| to Item|
|00004a70| 43 6e 74 7d 0d 0d 09 09 | 09 09 09 09 53 65 74 57 |Cnt}....|....SetW|
|00004a80| 52 65 66 43 6f 6e 28 74 | 68 65 44 69 61 6c 6f 67 |RefCon(t|heDialog|
|00004a90| 2c 20 4c 4f 4e 47 49 4e | 54 28 4c 69 73 74 52 65 |, LONGIN|T(ListRe|
|00004aa0| 63 48 44 4c 29 29 3b 0d | 09 09 09 09 09 65 6e 64 |cHDL));.|.....end|
|00004ab0| 20 7b 69 66 20 4e 65 77 | 52 6f 6d 73 7d 0d 09 09 | {if New|Roms}...|
|00004ac0| 09 09 65 6c 73 65 0d 09 | 09 09 09 09 74 68 65 44 |..else..|....theD|
|00004ad0| 69 61 6c 6f 67 46 69 6c | 74 65 72 3a 3d 6e 69 6c |ialogFil|ter:=nil|
|00004ae0| 3b 0d 09 09 09 65 6e 64 | 3b 20 7b 53 65 74 75 70 |;....end|; {Setup|
|00004af0| 44 69 61 6c 6f 67 7d 0d | 0d 09 09 70 72 6f 63 65 |Dialog}.|...proce|
|00004b00| 64 75 72 65 20 44 69 73 | 70 6f 73 53 65 74 55 70 |dure Dis|posSetUp|
|00004b10| 3b 0d 09 09 09 76 61 72 | 0d 09 09 09 09 4c 69 73 |;....var|.....Lis|
|00004b20| 74 52 65 63 48 44 4c 3a | 20 4b 65 79 4c 69 73 74 |tRecHDL:| KeyList|
|00004b30| 52 65 63 48 44 4c 3b 0d | 09 09 09 09 52 65 66 43 |RecHDL;.|....RefC|
|00004b40| 6f 6e 3a 20 4c 4f 4e 47 | 49 4e 54 3b 0d 09 09 09 |on: LONG|INT;....|
|00004b50| 62 65 67 69 6e 0d 09 09 | 09 09 4c 69 73 74 52 65 |begin...|..ListRe|
|00004b60| 63 48 44 4c 3a 3d 4b 65 | 79 4c 69 73 74 52 65 63 |cHDL:=Ke|yListRec|
|00004b70| 48 44 4c 28 47 65 74 57 | 52 65 66 43 6f 6e 28 74 |HDL(GetW|RefCon(t|
|00004b80| 68 65 44 69 61 6c 6f 67 | 29 29 3b 0d 09 09 09 09 |heDialog|));.....|
|00004b90| 52 65 66 43 6f 6e 3a 3d | 4c 69 73 74 52 65 63 48 |RefCon:=|ListRecH|
|00004ba0| 44 4c 5e 5e 2e 4f 6c 64 | 52 65 66 43 6f 6e 3b 0d |DL^^.Old|RefCon;.|
|00004bb0| 09 09 09 09 69 66 20 4c | 69 73 74 52 65 63 48 44 |....if L|istRecHD|
|00004bc0| 4c 5e 5e 2e 4c 69 73 74 | 48 44 4c 3c 3e 6e 69 6c |L^^.List|HDL<>nil|
|00004bd0| 20 74 68 65 6e 0d 09 09 | 09 09 09 44 69 73 70 6f | then...|...Dispo|
|00004be0| 73 48 61 6e 64 6c 65 28 | 48 61 6e 64 6c 65 28 4c |sHandle(|Handle(L|
|00004bf0| 69 73 74 52 65 63 48 44 | 4c 5e 5e 2e 4c 69 73 74 |istRecHD|L^^.List|
|00004c00| 48 44 4c 29 29 3b 0d 0d | 09 09 09 09 44 69 73 70 |HDL));..|....Disp|
|00004c10| 6f 73 48 61 6e 64 6c 65 | 28 48 61 6e 64 6c 65 28 |osHandle|(Handle(|
|00004c20| 4c 69 73 74 52 65 63 48 | 44 4c 29 29 3b 0d 09 09 |ListRecH|DL));...|
|00004c30| 09 09 53 65 74 57 52 65 | 66 43 6f 6e 28 74 68 65 |..SetWRe|fCon(the|
|00004c40| 44 69 61 6c 6f 67 2c 20 | 52 65 66 43 6f 6e 29 3b |Dialog, |RefCon);|
|00004c50| 0d 09 09 09 65 6e 64 3b | 20 7b 44 69 73 70 6f 73 |....end;| {Dispos|
|00004c60| 53 65 74 75 70 7d 0d 0d | 09 09 66 75 6e 63 74 69 |Setup}..|..functi|
|00004c70| 6f 6e 20 47 65 74 44 4c | 4f 47 52 65 66 43 6f 6e |on GetDL|OGRefCon|
|00004c80| 3b 0d 09 09 09 76 61 72 | 0d 09 09 09 09 4b 65 79 |;....var|.....Key|
|00004c90| 48 61 6e 64 6c 65 3a 20 | 4b 65 79 4c 69 73 74 52 |Handle: |KeyListR|
|00004ca0| 65 63 48 44 4c 3b 0d 09 | 09 09 62 65 67 69 6e 0d |ecHDL;..|..begin.|
|00004cb0| 09 09 09 09 4b 65 79 48 | 61 6e 64 6c 65 3a 3d 4b |....KeyH|andle:=K|
|00004cc0| 65 79 4c 69 73 74 52 65 | 63 48 44 4c 28 47 65 74 |eyListRe|cHDL(Get|
|00004cd0| 57 52 65 66 43 6f 6e 28 | 74 68 65 44 69 61 6c 6f |WRefCon(|theDialo|
|00004ce0| 67 29 29 3b 0d 09 09 09 | 09 47 65 74 44 4c 4f 47 |g));....|.GetDLOG|
|00004cf0| 52 65 66 43 6f 6e 3a 3d | 4b 65 79 48 61 6e 64 6c |RefCon:=|KeyHandl|
|00004d00| 65 5e 5e 2e 4f 6c 64 52 | 65 66 43 6f 6e 3b 0d 09 |e^^.OldR|efCon;..|
|00004d10| 09 09 65 6e 64 3b 20 7b | 47 65 74 44 4c 4f 47 52 |..end; {|GetDLOGR|
|00004d20| 65 66 43 6f 6e 7d 0d 0d | 09 09 66 75 6e 63 74 69 |efCon}..|..functi|
|00004d30| 6f 6e 20 59 65 73 4e 6f | 43 61 6e 63 65 6c 44 4c |on YesNo|CancelDL|
|00004d40| 4f 47 3b 0d 09 09 09 76 | 61 72 0d 09 09 09 09 44 |OG;....v|ar.....D|
|00004d50| 69 61 6c 6f 67 3a 20 44 | 69 61 6c 6f 67 50 74 72 |ialog: D|ialogPtr|
|00004d60| 3b 0d 09 09 09 09 49 74 | 65 6d 3a 20 49 4e 54 45 |;.....It|em: INTE|
|00004d70| 47 45 52 3b 0d 09 09 09 | 62 65 67 69 6e 0d 09 09 |GER;....|begin...|
|00004d80| 09 09 50 61 72 61 6d 54 | 65 78 74 28 70 61 72 6d |..ParamT|ext(parm|
|00004d90| 30 2c 20 70 61 72 6d 31 | 2c 20 70 61 72 6d 32 2c |0, parm1|, parm2,|
|00004da0| 20 70 61 72 6d 33 29 3b | 0d 09 09 09 09 44 69 61 | parm3);|.....Dia|
|00004db0| 6c 6f 67 3a 3d 43 65 6e | 74 65 72 4e 65 77 44 69 |log:=Cen|terNewDi|
|00004dc0| 61 6c 6f 67 28 59 65 73 | 4e 6f 43 61 6e 63 65 6c |alog(Yes|NoCancel|
|00004dd0| 49 44 2c 20 6e 69 6c 2c | 20 50 4f 49 4e 54 45 52 |ID, nil,| POINTER|
|00004de0| 28 2d 31 29 2c 20 2d 35 | 30 2c 20 30 29 3b 0d 09 |(-1), -5|0, 0);..|
|00004df0| 09 09 09 53 68 6f 77 57 | 69 6e 64 6f 77 28 44 69 |...ShowW|indow(Di|
|00004e00| 61 6c 6f 67 29 3b 0d 09 | 09 09 09 44 69 61 6c 6f |alog);..|...Dialo|
|00004e10| 67 44 65 66 61 75 6c 74 | 28 44 69 61 6c 6f 67 29 |gDefault|(Dialog)|
|00004e20| 3b 0d 09 09 09 09 53 65 | 74 75 70 44 69 61 6c 6f |;.....Se|tupDialo|
|00004e30| 67 28 44 69 61 6c 6f 67 | 2c 20 54 52 55 45 2c 20 |g(Dialog|, TRUE, |
|00004e40| 54 52 55 45 2c 20 54 52 | 55 45 29 3b 0d 09 09 09 |TRUE, TR|UE);....|
|00004e50| 09 4d 6f 64 61 6c 44 69 | 61 6c 6f 67 28 74 68 65 |.ModalDi|alog(the|
|00004e60| 44 69 61 6c 6f 67 46 69 | 6c 74 65 72 2c 20 49 74 |DialogFi|lter, It|
|00004e70| 65 6d 29 3b 0d 09 09 09 | 09 44 69 73 70 6f 73 53 |em);....|.DisposS|
|00004e80| 65 74 55 70 28 44 69 61 | 6c 6f 67 29 3b 0d 09 09 |etUp(Dia|log);...|
|00004e90| 09 09 44 69 73 70 6f 73 | 44 69 61 6c 6f 67 28 44 |..Dispos|Dialog(D|
|00004ea0| 69 61 6c 6f 67 29 3b 0d | 09 09 09 09 59 65 73 4e |ialog);.|....YesN|
|00004eb0| 6f 43 61 6e 63 65 6c 44 | 4c 4f 47 3a 3d 47 65 6e |oCancelD|LOG:=Gen|
|00004ec0| 65 72 69 63 52 65 73 70 | 6f 6e 73 65 28 45 6e 75 |ericResp|onse(Enu|
|00004ed0| 6d 56 61 6c 75 65 28 49 | 74 65 6d 29 29 3b 0d 09 |mValue(I|tem));..|
|00004ee0| 09 09 65 6e 64 3b 20 7b | 59 65 73 4e 6f 43 61 6e |..end; {|YesNoCan|
|00004ef0| 63 65 6c 44 4c 4f 47 7d | 0d 0d 09 09 66 75 6e 63 |celDLOG}|....func|
|00004f00| 74 69 6f 6e 20 59 65 73 | 4e 6f 44 4c 4f 47 3b 0d |tion Yes|NoDLOG;.|
|00004f10| 09 09 09 76 61 72 0d 09 | 09 09 09 44 69 61 6c 6f |...var..|...Dialo|
|00004f20| 67 3a 20 44 69 61 6c 6f | 67 50 74 72 3b 0d 09 09 |g: Dialo|gPtr;...|
|00004f30| 09 09 49 74 65 6d 48 44 | 4c 3a 20 48 61 6e 64 6c |..ItemHD|L: Handl|
|00004f40| 65 3b 0d 09 09 09 09 43 | 6f 6e 74 72 6f 6c 48 44 |e;.....C|ontrolHD|
|00004f50| 4c 3a 20 43 6f 6e 74 72 | 6f 6c 48 61 6e 64 6c 65 |L: Contr|olHandle|
|00004f60| 3b 0d 09 09 09 09 49 74 | 65 6d 52 65 63 74 3a 20 |;.....It|emRect: |
|00004f70| 52 65 63 74 3b 0d 09 09 | 09 09 49 74 65 6d 3a 20 |Rect;...|..Item: |
|00004f80| 49 4e 54 45 47 45 52 3b | 0d 09 09 09 62 65 67 69 |INTEGER;|....begi|
|00004f90| 6e 0d 09 09 09 09 50 61 | 72 61 6d 54 65 78 74 28 |n.....Pa|ramText(|
|00004fa0| 70 61 72 6d 30 2c 20 70 | 61 72 6d 31 2c 20 70 61 |parm0, p|arm1, pa|
|00004fb0| 72 6d 32 2c 20 70 61 72 | 6d 33 29 3b 0d 09 09 09 |rm2, par|m3);....|
|00004fc0| 09 44 69 61 6c 6f 67 3a | 3d 43 65 6e 74 65 72 4e |.Dialog:|=CenterN|
|00004fd0| 65 77 44 69 61 6c 6f 67 | 28 59 65 73 4e 6f 43 61 |ewDialog|(YesNoCa|
|00004fe0| 6e 63 65 6c 49 44 2c 20 | 6e 69 6c 2c 20 50 4f 49 |ncelID, |nil, POI|
|00004ff0| 4e 54 45 52 28 2d 31 29 | 2c 20 2d 35 30 2c 20 30 |NTER(-1)|, -50, 0|
|00005000| 29 3b 0d 09 09 09 09 53 | 68 6f 77 57 69 6e 64 6f |);.....S|howWindo|
|00005010| 77 28 44 69 61 6c 6f 67 | 29 3b 0d 09 09 09 09 47 |w(Dialog|);.....G|
|00005020| 65 74 44 49 74 65 6d 28 | 44 69 61 6c 6f 67 2c 20 |etDItem(|Dialog, |
|00005030| 43 61 6e 63 65 6c 42 75 | 74 74 6f 6e 2c 20 49 74 |CancelBu|tton, It|
|00005040| 65 6d 2c 20 49 74 65 6d | 48 44 4c 2c 20 49 74 65 |em, Item|HDL, Ite|
|00005050| 6d 52 65 63 74 29 3b 0d | 09 09 09 09 43 6f 6e 74 |mRect);.|....Cont|
|00005060| 72 6f 6c 48 44 4c 3a 3d | 43 6f 6e 74 72 6f 6c 48 |rolHDL:=|ControlH|
|00005070| 61 6e 64 6c 65 28 49 74 | 65 6d 48 44 4c 29 3b 0d |andle(It|emHDL);.|
|00005080| 09 09 09 09 48 69 64 65 | 43 6f 6e 74 72 6f 6c 28 |....Hide|Control(|
|00005090| 43 6f 6e 74 72 6f 6c 48 | 44 4c 29 3b 0d 09 09 09 |ControlH|DL);....|
|000050a0| 09 48 69 6c 69 74 65 43 | 6f 6e 74 72 6f 6c 28 43 |.HiliteC|ontrol(C|
|000050b0| 6f 6e 74 72 6f 6c 48 44 | 4c 2c 20 44 65 61 64 43 |ontrolHD|L, DeadC|
|000050c0| 6f 6e 74 72 6f 6c 29 3b | 0d 09 09 09 09 44 69 61 |ontrol);|.....Dia|
|000050d0| 6c 6f 67 44 65 66 61 75 | 6c 74 28 44 69 61 6c 6f |logDefau|lt(Dialo|
|000050e0| 67 29 3b 0d 09 09 09 09 | 53 65 74 75 70 44 69 61 |g);.....|SetupDia|
|000050f0| 6c 6f 67 28 44 69 61 6c | 6f 67 2c 20 54 52 55 45 |log(Dial|og, TRUE|
|00005100| 2c 20 54 52 55 45 2c 20 | 54 52 55 45 29 3b 0d 09 |, TRUE, |TRUE);..|
|00005110| 09 09 09 4d 6f 64 61 6c | 44 69 61 6c 6f 67 28 74 |...Modal|Dialog(t|
|00005120| 68 65 44 69 61 6c 6f 67 | 46 69 6c 74 65 72 2c 20 |heDialog|Filter, |
|00005130| 49 74 65 6d 29 3b 0d 09 | 09 09 09 44 69 73 70 6f |Item);..|...Dispo|
|00005140| 73 53 65 74 55 70 28 44 | 69 61 6c 6f 67 29 3b 0d |sSetUp(D|ialog);.|
|00005150| 09 09 09 09 44 69 73 70 | 6f 73 44 69 61 6c 6f 67 |....Disp|osDialog|
|00005160| 28 44 69 61 6c 6f 67 29 | 3b 0d 09 09 09 09 59 65 |(Dialog)|;.....Ye|
|00005170| 73 4e 6f 44 4c 4f 47 3a | 3d 47 65 6e 65 72 69 63 |sNoDLOG:|=Generic|
|00005180| 52 65 73 70 6f 6e 73 65 | 28 45 6e 75 6d 56 61 6c |Response|(EnumVal|
|00005190| 75 65 28 49 74 65 6d 29 | 29 3b 0d 09 09 09 65 6e |ue(Item)|);....en|
|000051a0| 64 3b 20 7b 59 65 73 4e | 6f 44 4c 4f 47 7d 0d 0d |d; {YesN|oDLOG}..|
|000051b0| 09 09 66 75 6e 63 74 69 | 6f 6e 20 44 65 6c 65 74 |..functi|on Delet|
|000051c0| 65 46 69 6c 65 3b 0d 09 | 09 09 76 61 72 0d 09 09 |eFile;..|..var...|
|000051d0| 09 09 52 65 73 70 6f 6e | 73 65 3a 20 47 65 6e 65 |..Respon|se: Gene|
|000051e0| 72 69 63 52 65 73 70 6f | 6e 73 65 3b 0d 09 09 09 |ricRespo|nse;....|
|000051f0| 09 46 69 6c 65 52 65 70 | 6c 79 3a 20 53 46 52 65 |.FileRep|ly: SFRe|
|00005200| 70 6c 79 3b 0d 09 09 09 | 09 54 79 70 65 4c 69 73 |ply;....|.TypeLis|
|00005210| 74 3a 20 53 46 54 79 70 | 65 4c 69 73 74 3b 0d 09 |t: SFTyp|eList;..|
|00005220| 09 09 09 46 69 6c 65 45 | 72 72 3a 20 4f 53 45 72 |...FileE|rr: OSEr|
|00005230| 72 3b 0d 09 09 09 09 46 | 69 6c 65 43 6f 75 6e 74 |r;.....F|ileCount|
|00005240| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 09 09 62 65 |: INTEGE|R;....be|
|00005250| 67 69 6e 0d 09 09 09 09 | 44 65 6c 65 74 65 46 69 |gin.....|DeleteFi|
|00005260| 6c 65 3a 3d 46 41 4c 53 | 45 3b 0d 09 09 09 09 46 |le:=FALS|E;.....F|
|00005270| 69 6c 65 43 6f 75 6e 74 | 3a 3d 2d 31 3b 0d 0d 09 |ileCount|:=-1;...|
|00005280| 09 09 09 46 69 6c 65 52 | 65 70 6c 79 3a 3d 44 6f |...FileR|eply:=Do|
|00005290| 53 46 47 65 74 28 46 69 | 6c 65 43 6f 75 6e 74 2c |SFGet(Fi|leCount,|
|000052a0| 20 54 79 70 65 4c 69 73 | 74 2c 20 30 2c 20 30 29 | TypeLis|t, 0, 0)|
|000052b0| 3b 0d 0d 09 09 09 09 69 | 66 20 46 69 6c 65 52 65 |;......i|f FileRe|
|000052c0| 70 6c 79 2e 67 6f 6f 64 | 20 74 68 65 6e 0d 09 09 |ply.good| then...|
|000052d0| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 52 |...begin|.......R|
|000052e0| 65 73 70 6f 6e 73 65 3a | 3d 59 65 73 4e 6f 44 4c |esponse:|=YesNoDL|
|000052f0| 4f 47 28 27 44 6f 20 79 | 6f 75 20 72 65 61 6c 6c |OG('Do y|ou reall|
|00005300| 79 20 77 61 6e 74 20 74 | 6f 20 44 65 6c 65 74 65 |y want t|o Delete|
|00005310| 20 74 68 65 20 66 69 6c | 65 20 22 27 2c 0d 09 09 | the fil|e "',...|
|00005320| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 46 69 |........|......Fi|
|00005330| 6c 65 52 65 70 6c 79 2e | 66 4e 61 6d 65 2c 20 27 |leReply.|fName, '|
|00005340| 22 3f 27 2c 20 27 27 29 | 3b 0d 09 09 09 09 09 09 |"?', '')|;.......|
|00005350| 69 66 20 52 65 73 70 6f | 6e 73 65 3d 59 65 73 52 |if Respo|nse=YesR|
|00005360| 65 73 70 6f 6e 73 65 20 | 74 68 65 6e 0d 09 09 09 |esponse |then....|
|00005370| 09 09 09 09 46 69 6c 65 | 45 72 72 3a 3d 46 53 44 |....File|Err:=FSD|
|00005380| 65 6c 65 74 65 28 46 69 | 6c 65 52 65 70 6c 79 2e |elete(Fi|leReply.|
|00005390| 66 4e 61 6d 65 2c 20 46 | 69 6c 65 52 65 70 6c 79 |fName, F|ileReply|
|000053a0| 2e 76 52 65 66 4e 75 6d | 29 3b 0d 09 09 09 09 09 |.vRefNum|);......|
|000053b0| 65 6e 64 3b 20 7b 69 66 | 20 46 69 6c 65 52 65 70 |end; {if| FileRep|
|000053c0| 6c 79 2e 67 6f 6f 64 7d | 0d 09 09 09 65 6e 64 3b |ly.good}|....end;|
|000053d0| 20 7b 44 65 6c 65 74 65 | 46 69 6c 65 7d 0d 65 6e | {Delete|File}.en|
|000053e0| 64 2e 20 7b 75 6e 69 74 | 55 74 69 6c 69 74 69 65 |d. {unit|Utilitie|
|000053f0| 73 7d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s}......|........|
|00005400| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00005410| 60 18 48 78 00 01 42 a7 | 70 00 30 28 00 14 2f 00 |`.Hx..B.|p.0(../.|
|00005420| 4e ad 03 72 4a 80 6d 02 | d0 82 4c ee 00 04 ff fc |N..rJ.m.|..L.....|
|00005430| 0d 55 74 69 6c 69 74 69 | 65 73 2e 70 61 73 02 00 |.Utiliti|es.pas..|
|00005440| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|00005450| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|00005460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005470| 00 00 9c 27 18 7f 00 00 | 53 73 00 00 01 7e 25 42 |...'....|Ss...~%B|
|00005480| 00 08 2f 0a 4e ba f9 60 | 70 00 4c ee 04 0c ff f4 |../.N..`|p.L.....|
|00005490| 4e 5e 4e 75 d3 45 54 56 | 42 55 46 20 4e 56 00 00 |N^Nu.ETV|BUF NV..|
|000054a0| 22 2e 00 08 20 6e 00 0c | 70 ff b0 81 66 04 70 ff |"... n..|p...f.p.|
|000054b0| 60 38 08 28 00 00 00 13 | 67 00 00 0c 22 68 00 08 |`8.(....|g..."h..|
|000054c0| b3 e8 00 04 65 16 22 68 | 00 08 b3 e8 00 04 66 0a |....e."h|......f.|
|000054d0| 4a 90 66 06 52 a8 00 04 | 60 02 60 d2 53 a8 00 04 |J.f.R...|`.`.S...|
|000054e0| 22 68 00 04 12 81 52 90 | 20 01 4e 5e 4e 75 d5 4e |"h....R.| .N^Nu.N|
|000054f0| 47 45 54 43 20 20 00 00 | 07 94 04 50 00 03 4e 56 |GETC  ..|...P..NV|
|00005500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00005510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005520| 00 00 00 00 00 00 00 06 | 00 02 00 29 00 03 01 53 |........|...)...S|
|00005530| 01 fd 00 3c 00 24 01 53 | 01 fd 9c 27 1a b8 00 00 |...<.$.S|...'....|
|00005540| 53 5d 00 00 53 5d 00 00 | 51 2f 01 00 00 00 01 00 |S]..S]..|Q/......|
|00005550| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 00 cc 24 |...L...L|...2...$|
|00005560| 03 50 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.P.....2|..MPSR..|
|00005570| 00 0a 03 ed ff ff 00 00 | 00 00 00 01 a9 90 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+